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Nerve Development: 

Digitization and 
Three-Dimensional 
Reconstruction from Serial 
Sections 




Fig. 1. Selecting fertile frog’s eggs from a pewly-laid batch at McGill University in Montreal, where 
the author is on a special studies program. The embryos are used to obtain nerve and muscle cells for 
tissue culture studies of development of connections between them. 



by David F.Davey 
Neurobiology Laboratory 
University of Sydney 
N.S.W., Australia 



As a part of the Neurobiology Laboratory’s 
continuing investigation of embryonic nerve 
development, Max Bennett, Kerrie Uebel 
and I began a detailed study of the growth 
of nerves into the wing of the chick embryo. 
Our initial interest centered on the estab- 
lishment of the first two nerve trunks into 
the limb, a process which occurs between 
about 3 1 /2 days of embryonic age when the 
limb is simply a tiny bulge on the embryo, 
and about 5 days when it has grown to a 
length of about 2 mm. (The chick hatches at 
21 days.) 



The size was small enough to require 
microscopy, yet large enough to require 
serial sectioning to analyze a whole wing. 
We quickly found that constructing a view 
of the rapidly developing limb from such 
sections, often exceeding a thousand in 
number, was a very difficult task. We 
dreamed of computer techniques, but were 
discouraged by attempts of a colleague to 
make use of some 3-D architectural pro- 
grams on a large computer. These methods 
proved too compromised towards rectilinear 
structures; finding out that much proved 
expensive. 

Just at the right time, another colleague, 
Professor J.A. Young, obtained a 405 L 
Graphics Computer and 4662 Interactive 
digital plotter. We are indebted to him for 
allowing me to investigate the usefulness of 
these machines in our study. It is a credit to 
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the simplicity of the Tektronix BASIC 
graphics commands, that with only little 
Fortran experience, the 4051 and 4662 
manuals, and a session with the graphics tu- 
torial program, I had a crude digitization 
and display program working within about 
20 hours of access to the machines. 

The general approach I adopted was to 
digitize outlines of the chick wing, and 
structures within it that we were interested 
in, by placing light micrographs directly on 
the 4662 and tracing these structures using 
the cross-hair sight and joystick control. 
The " CALL " button was used to signal the 
start and end of lines, and the coordinates 
were obtained within a loop containing a 
GIN command. The X-Y data, together 
with information on distance separating ad- 
jacent sections enabled three dimensional 
projections of the traced information to be 
displayed. 

Several problems associated with the data 
acquisition quickly became evident, and 
these turned out to have a common solution. 
First, it was possible to digitize far too many 
points per unit length of line traced; too 
many both in terms of the resolution we 
needed and in terms of the data storage and 
handling. Second, the number of points per 
unit length of line traced varied with the 
speed of tracing. Third, with even a fair 
amount of practice, it was difficult to avoid 
straying from the intended line using the 
joystick, especially if a large amount of ma- 
terial was being processed. 

The solution to these problems lay in the 
following strategy. First, I predetermined 
how many points were to be permanently 
stored for each outline to be traced (small 
structures such as the nerve trunks did not 
require as many points as the outline of the 
wing itself), and from the data acquired 
from the digitization run with the joystick) 
calculated the positions of these points such 
that these calculated points would be equi- 
distant. Second the position of these points 
were verified by the joystick operator so 
that when the initial tracing inevitably 
strayed from the desired line, the operator 
could reposition the points using the 
joystick. 

In the meantime we found that comparing 
structure outlines from one section to the 
next was difficult working with micrographs 
themselves, and began to draw our outlines 
onto overhead projector transparent sheets. 
Groups of these can be easily compared, and 
if water soluble pens are used for drawing 
outlines, alterations are easy and^ quick. 
These transparencies are held well by the 
4662 electrostatic hold-down, so we began 
to digitize from these transparencies. 




Fig. 2. Light micrograph of a section through trunk and wing of a chick embryo after 3 1/2 days 
incubation. One nerve trunk (arrow) can be seen growing from the spinal cord (SC) toward the wing- 
bud (W), which is about 1/2 mm long. The section is only about 1 pm thick; 500 to 1000 such sections 
are required to follow all the nerves into the wing. They are obtained by embedding a chemically 
preserved embryo in an epoxy resin which is cut with a glass knife using a microtome. 





Fig. 3a & 3b. Key structures are outlined on overhead projector transparencies placed over the 
micrographs. These are handy for comparing adjacent sections. The original sections, which are 
stained with two different coloured dyes, are referrred to when making these outlines. In addition, 
thinner sections cut periodically from the same specimen are examined in the electron-microscope to 
positively identify small structures. The denser area outlined in the wing bud is the first sign of 
muscle development. 
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Digitization Procedures 

Data input begins by initializing file names, 
number of structures, points per structure 
and number of sections to be digitized. The 
program then requests the operator to trace 
each line in turn for each section. For each 
such line the method is: 

1. In response to a request on the 4051 
screen, and the plotter prompt light being 
illuminated, the operator moves the plotter 
cursor to the start of the line and signals 
readiness to begin tracing by pressing the 
plotter’s "CALL” button. The program 
puts the pen down and the operator then 
traces the line with reasonable (but not ex- 
treme) accuracy, using the joystick control. 
The end of the line is signalled by pressing 
“ CALL ” again. During the trace, X,Y co- 
ordinates of the pen position are repetitively 
determined by the program executing a 
GIN request to the plotter and transferring 
the result to a disk scratch file. The length 
of line traced is summated. At this stage the 
path of the cursor is digitally approximated 
by the series of coordinates in the disk file. 
The length of the series of straight lines 
joining these points is divided into n— 1 
equal length segments (where n is the pre- 
determined number of points to be used fi- 
nally to represent the line), and the 
coordinates of the points at the end of each 
segment and lying on the approximation 
formed by the series of lines is calculated. 

2. Under program control, the plotter 
cursor is moved to each of these points in 
turn, and the operator checks that the calcu- 
lated point lies appropriately on the original 
desired outline. It may not, either due to 
tracing inaccuracy during step 1 or because 
sharp contours have been represented by too 
few points in step 1 . If necessary the opera- 
tor repositions the cursor with the joystick. 
The operator accepts the point by pressing 
“CALL”; the cursor position is then saved 
as„the permanent coordinate for that point. 

The overall result is the storage of the pre- 
determined number of points lying on the 
original outline with an accuracy under the 
control of the operator. The points will be 
separated by equal distances unless gross 
repositioning has occurred during step 2. 

These steps are repeated for each structure 
traced from the section, and finally the pro- 
gram requests the distance separating the 
section from the previous one, then the data 
for the current section are written to disk. 

Although the scheme was devised as a 
means of coping with the difficulty of trac- 
ing with the joystick, as well as with the 
data handling problems mentioned above, it 
has an additional payoff. Since a structure 





is represented by an equal number of points 
in each digital section, corresponding points 
in adjacent sections can be connected in 
drawing the three dimensional projections 
of the data without any further calculations 
being necessary. Such connecting lines are 
very useful in representing continuous struc- 
tures, such as nerve trunks, in the recon- 
structions. Clearly just having an equal 
number of points in each section does not 
guarantee a reasonable point-to-point corre- 
spondence without ensuring a relation be- 
tween the start and end of each outline from 
one section to the next. This must be borne 
in mind when drawing the outline from the 
micrographs in the first instance. 





Principle of Data Output 

The aim of the programs used to handle the 
digitized structural information is to depict 
three-dimensional representations of the 
structures traced on the transparencies and 
to represent these data in two dimensional 
projections. Furthermore these representa- 
tions can be examined from any viewpoint, 
taking perspective into account. To this end 
the programs enable rotation of the data in 
the X-Y plane about the Z-axis and tilting 
of the data in the Y-Z plane about the X- 
axis. Drawings of the data are built up from 
many drawings of single sections (apart 
from joining corresponding points in adja- 



Fig. 4. Examples of digitized outlines such as shown in Fig. 3. A-C from 4 adjacent sections from the 
digital file. Since only about every fifteenth section is digitized, these represent about 60 pm of the 
limb. Note that one of the nerves emanating from the spinal cord in C (see arrow Fig. 2) is not present 
in A. 
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cent sections) and the technique may be de- 
scribed on the basis of a single section. 

The simplest representation of a section is 
without rotation or tilting. If the Z co-ordi- 
nate of the section is zero, the representa- 
tion of the section is identical to the original 
tracing; if greater than zero it is “ similar * 
(in the Euclidean geometrical sense) to the 
original tracing but slightly larger to ac- 
count for it being closer to the viewpoint 
(i.e., the distance between the section and 
the viewpoint, used to determine perspective 
would be different). 

Rotation of the projections is achieved sim- 
ply by a transposition of the XY data, 
recalculating the values of the co-ordinates 
using the origin as the center of rotation. 
Tilting of the projections involved certain 
approximations, related to perspective, con- 
sidered expedient in terms of the time re- 
quired to generate drawings. If the Z co- 
ordinate of a section is zero, tilting its 
projection involves a rescaling of the Y axis 
to reduce the magnitude of each Y coordi- 
nate to Ycos 0 where 0 is the angle of tilt. 
Perspective is not accounted for, leading to 
a slight distortion in the Y direction. Per- 
spective calculations are also not applied to 
the X co-ordinates, again leading to a slight 
distortion. The point of these approxima- 
tions is that they enable scaling simply 
through a “SCALE" command. No 
trigometric calculations in BASIC are 
required. 

If the Z co-ordinate of a section is greater 
than zero, calculation of new Y scaling fol- 
lows recalculation of the XY data to ac- 
count for perspective, as described above for 
a case where no tilting is involved. The fact 
that the Z co-ordinate differs from zero 
means that the distance to the viewpoint 
also differs from that if no tilting is intro- 
duced, and this is taken into account in the 
calculation since this proved to be of consid- 
erable importance in providing three-dimen- 
sional visual cues. These calculations can be 
applied simply with a “MOVE" and 
“ SCALE " sequence. 



Production of Full Reconstructions 

Some of our reconstructions have been fair- 
ly complex, both in terms of the numbers of 
structures being represented and the fact 
that we have structures within structures 
within structures, e.g. nerves within muscles 
within the wing. Because the method does 
not involve any routines to remove hidden 
lines, the final representation of the ^recon- 
structions presents some problems. At the 
same time we have not wanted to remove 
hidden lines, since we have been concerned 




Fig. 5a. Reconstruction of limb sections such as shown in the micrograph of Fig. 2 and the digital 
outlines of Fig. 4. In this case no rotation or tilt has been used. 





Fig. 5c. Tilt alone reveals four nerves ( arrows ) entering the limb, but their relationship is confused. 



Stage 22 CC49-22) 

Rotated 98 deg. Tilt 68 deg. Viewing distance 5.x scale bar. 



800 jJID 



3-0 22-SEP-81 02iS6i 16 DKl *4922.30 



H- 







Fig. 5d. Both rotation as in B and tilt as in C enables the convergence of the four nerves towards the 
muscle density (see Fig. 3) to be seen. This information is exceedingly difficult to convey using only 
serial micrographs such as shown in Fig. 2. This view looks into the limb bud from inside the chick. 
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with the way nerves grow inside the other 
structures. The use of different colors aids 
in our own analysis, but the cost of color 
printing prohibits this as a solution to pro- 
ducing figures for publication. Two addi- 
tional developments have helped with this 
problem. First I have provided for drawing 
the reconstructed structures in a variety of 
ways based on combinations of dashed lines, 
solid lines, drawing the outlines contained in 
each digitized section and drawing lines 
connecting sections. Structures drawn with 
solid lines with sections connected are easily 
seen within larger structures drawn with 
dashed lines without sections being 
connected. 

The second development proved even more 
powerful, that of producing stereoscopic fig- 
ures. Since stereopsis depends upon the 
slightly different viewpoints of the two eyes, 
and the slightly different visual information 
therefore received by each eye, and since the 
variation of viewpoint is easily achieved by a 
three-dimensional rotation, the production 
of stereo pairs of illustrations is a very sim- 
ple extension of the reconstruction 
technique. 

The methods have enabled members of the 
Neurobiology Laboratory to complete anal- 
ysis of the development of the chick wing 
innervation, and a number of related studies 
have been completed and are in progress. 
Quite a number of computer-drawn illustra- 
tions have been published. Most of the work 
would have been impossible without such a 
powerful tool. JSh 

References: Bennett, M.R., D.F. Davey, and K.E. 
Uebel, "The Growth of Segmental Nerves From 
the Brachial Myotomes Into the Proximal Mus- 
cles of the Chick Forelimb During Development, ” 
J. Comparative Neurology, 189, pp. 335-357. 




Fig. 6. Example of a full reconstruction of serial sections through a muscle cell (dashed outlines) 
through the region where nerve cell branches (solid lines connected from section to section) contact the 
muscle. Parts of one of nerve branches was found in the electron microscope not to make functional 
contact. This is indicated by broken connecting lines. Scale bar represents 0.1 mm. 




Fig. 7a. Chick wing about 1/2 day older than the one of Figs. 2 through 5. The nerves have entered the 
wing and are headed for the lower muscle density. The upper density is newly formed, and would have 
been reached by a nerve branch in another few hours. 




Fig. 7b. An unusual toad-muscle cell contacted by two different nerve cells. Stereoscopic examination 
reveals the right-hand (branched) nerve to be on the far side of the muscle cell. Its apparent overlap 
with the left hand nerve can be resolved. 



Fig. 7 . These pairs of figures are calculated so that if the left figure is viewed with the left eye and 
fused with the right figure viewed with the right eye, the three dimensional structure can be seen. 





development. 



Fig. 8b. Looking through the hole. 
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4050 Users Share Data Storage 

and Retrieval in New Tektronix Hard Disk 



by Chuck Smith 
and Dave Watts 
Tektronix, Inc. 

Wilsonville, OR 

. . . 1 to 10 simultaneous users . . . 768 mil- 
lion bytes of disk storage . . . removable disk 
cartridge . . . dynamically allocated files . . . 
variable length records . . . indexed files . . . 
file security . . . continuous time/date clock . 

These functions characterize the advanced 
technology of the TEKTRONIX 4909 
Multi-User File Management System. The 
4909’s smart approach to file management 
and its cost effective data storage and shar- 
ing bring convenient economical mass stor- 
age to 4050 Series users. 

Flexible configurations allow easy expan- 
sion of users or storage. The modular design 
of the 4909’s controller connects up to 11 
GPIB or special purpose interfaces through 
simple plug-in slots. 

Each GPIB interface supports one 4050 
desktop computer; each disk interface han- 
dles two disk drives. 

With full plug-in configuration up to 10 
4050 Systems may be interfaced to the 
4909-10 simultaneous users! It solves the 
transportability problem for users who share 
data; it also provides large local storage for 
applications such as drafting, design, map- 
ping* data acquisition, data analysis, re- 
search and development. 

When adding more users to a system, no 
software or operating system change are re- 
quired. The modular plug in approach to the 
controller allows you to add or reduce users 
easily. 

As part of the standard 4909 package, a 
GPIB interface is included which will trans- 
fer data in burst mode at 240,000 bytes per 
second. (Of course, the actual data transfer 
rate depends on your system and applica- 
tion.) Additional GPIB interfaces are avail- 
able as users are added. 

Maximum storage capacity is 768 
megabytes; the standard 4909 configuration 
includes the controller and one disk drive of 
32 megabytes; 16 megabytes of which are 




Fig. 1. Easy plug-in interfacing supports up to 11 interfaces. 
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on a removable cartridge. An optional 4909 
disk drive contains 96 megabytes of storage 
(16 megabytes removable). 




Fig. 2a. 16 Megabyte removable disk pack pro- 
vides backup and transportability of data. 




Fig. 2b. Disk capacity is either 32 megabytes or 
96 megabytes. 



A total of eight drives may be used with one 
4909 controller, resulting in maximum stor- 
age capacity of 768 megabytes (8 x 96). Ad- 
ditional drives are housed in attractive 
auxiliary cabinets, each of which supports 
one or two disk drives. 



English (ASCII) commands which operate 
the 4909 may be directly transmitted over 
the GPIB. Therefore, any computer or in- 
strument controller which supports IEEE- 
488 1978 may access the 4909. For 4050 
Series users, a ROM pack is available which 
allows easy access to the 4909’s file han- 
dling in 4050 BASIC, without having to use 
GPIB print and input statements for file 
operation. 

Through its intelligent controller, advanced 
file management functions formerly avail- 
able only on mini or mainframe systems 
have been implemented in the 4909. Be- 
cause the file management system resides 
within the 4909, very little 4050 memory is 
required and commands are executed from 
the 4909 not from 4050 software. With 
more of the file handling chores built into 
the 4909, it takes fewer commands to get 
the job done; and default parameters make 
the commands easy to use. 

File Space Allocated Dynamically 

For instance, the space required for data is 
calculated by the 4909. It expands or con- 
tracts the file size as data is stored or modi- 
fied. No longer does the user need to worry 
about estimating the correct file size or 
what to do when he reaches the end of the 
file. 




Fig. 4. 4909 handles file management chores. 




Records May Be Variable Lengths 

Records within a file may be different 
lengths. For example, within a binary file a 
record holding x,y,z coordinate position data ./"'X 
might contain 28 bytes while in the samel 
file another record holding a text string 
might contain 100 bytes. And the storage 
space for each record is calculated and allo- 
cated as needed by the 4909. 



Concatenated Volumes Link Disk 

Concatenation allows two or more disk to be 
treated as if they were one. Files on one disk 
may overflow to another, yet appear as one 
logical unit. Thus, the remaining capacity 
on a disk is not a limiting factor when stor- 
ing data. Large data bases may be contin- 
ued from one disk to another. And, 
information may be retrieved without speci- 
fying which disk it is on. 




Fig. 5 Files may occupy more than one disk yet 
be accessed as though on one. 

Multiple Level Storage Structure 

There is no limit to the number of libraries 
permitted in the 4909 storage structure and 
file names may be up to 100 characters 
long. These features result in meaningful 
file storage. 



FILE MANAGEMENT 
HIERARCHY 




Fig. 6a. An overview of 4909 file management 
hierarchy. 



Fig. 3. A fully configured system would include 8 disk drives and 7 users. 
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INDEXED FILES 



MULTIPLE LEVEL LIBRARIES 




Fig. 6b. Multiple level libraries result in coher- 
ent data bases. 




Fig. 7a. ASCII indexed files are a natural method for storing and retrieving data. 




KEY 

Index: “FLOORPLAN” 
or 

Approximate: “FLOOR” 
or 

Prefix: “FL” 

Fig. 7b. Users have three options for retrieving data from ASCII indexed files. 



Fig. 7. Schematic of an ASCII indexed file. The combination of file types offers a blend of efficient 
data storage and flexibility. 



Three File Types Provide Flexible Data 
Manipulation 

The 4909 offers six types of data files: bina- 
ry or ASCII direct, binary or ASCII 
numeric indexed, or ASCII indexed binary 
or ASCII. 

A direct file contains a stream of bytes usu- 
ally accessed in a serial fashion. However, 
an individual byte may be addressed by 
specifying the byte number relative to the 
beginning of the file. 

Indexed files are similar to direct files but 
are divided into records. Each record may 
be accessed by a unique key. If the file is a 
numeric indexed file, the keys are integers 
and a record is retrieved by number, like 
most random access files. 

If the file is an ASCII indexed file, the keys 
are alphanumeric, i.e., employee names, 
payroll codes. Because names are easier for 
most of us to remember, ASCII indexed 
files provide a natural method for storing 
aand retrieving data. And the 4909 can be 
directed to locate a record in an ASCII in- 
dexed file without stipulating the record’s 
exact key. By specifying an approximate 
key, the 4909 will locate that index and then 
step through other records having a key 



equal to or greater than the specified key. A 
prefix search will locate an index that starts 
with the specified prefix. This is many times 
faster than searching numeric indexed 
records from beginning to end, or faster 
even than a binary search of numeric in- 
dexed records. 

Files Carry Time and Date 

Battery backup on the 4909’s clock means 
it’s set at the time of installation only. It 
doesn’t have to be reset at each power up. 
The current time and date will automatical- 
ly be stamped on files as operations on them 
occur. 



Disk Security 

Each disk drive consists of a fixed and a 
removable portion, each of which is consid- 
ered a separate physical volume. However, 
the term “ volume” may be extended to in- 
clude several physical volumes. 

When a disk is initially formatted, volume 
configuration is stipulated and names are 
assigned to each logical volume. At the 
same time the user may provide a master 



password for each logical volume. If includ- 
ed, other users must supply this password 
when attempting to reformat the disk(s) or 
when performing restricted operations. 

Volume security also comes in the form of 
the removable cartridge disk which allows 
files to be backed up and removed from the 
system for archiving. 

Public and Private Space 

Depending upon the number of hard disks 
interfaced to it, the 4909 can support from 
one to 10 users at one time. To accommo- 
date the users, public and private file 
workspaces may be declared. 

Private file workspaces are declared in ad- 
vance for individuals and each is assigned 
their own password. No one may access a 
private space without the correct password. 
Public workspace provides users common 
access to the same storage space. Thus casu- 
al users of the 4909 are not required to re- 
member passwords or special commands. 
Files need not be copied to a users space in 
order to access them. 
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For each file, an access list may be assigned 
which specifies which users have access to 
the file and what type of access is allowed. 
The five levels of access are: full access, 
write access, append access, read access and 
no access. Several users may access the 
same file simultaneously. 

Another type of file access works much like 
an airline reservation system. A user can ob- 
tain exclusive use of a file for updating. Op- 
erations on the file by others are not 
permitted until the file is released. Requests 
to read, write, etc., are queued until the file 
is free, then are handled on a first come, 
first served basis. (Users have the option of 
not remaining in the queue should a file be 
reserved when they wish to access it.) 



4909 Functionally Compatible with 4907 

Although the 4909 offers more features 
than the TEKTRONIX 4907 File Manager 
and has differing commands, it is function- 
ally compatible. For 4907 users wishing to 
convert their programs and data files to the 
4909, a utility is available through the 4050 
Series Applications Library. The utility pro- 
grams aid in the conversion and identify the 
changes required in the 4907 program to 
complete the conversion. The 4907-to-4909 
conversion utility will be described in more 
detail in a future issue of TEKniques. 



4909 Not Just Another Hard Disk 

The 4909 allows users to store their own in- 
dividual programs and data, but also allows 
them access to common programs and data. 
The latest program version will easily be 
available to users; the latest data will be at 
their fingertips. And sharing achieves more 
value per byte of storage. 

4909 storage capacity permits users to 
download and store a very large amount of 
data, thus alleviating the interaction prob- 
lems with a host and increasing user accessi- 
bility and control. 

While easily slipping into any 4050 Series 
environment, the 4909 also provides mass 
storage for data acquired from 
TEKTRONIX Test and Measurement in- 
struments, or any instrument controller sup- 
porting GPIB. The 4909 Supports 
Tektronix Codes and Formats for GPIB 
instruments.* 

Advanced file management and easy 
expandability ensure the 4909 a place as a 



*Tektronix Codes and Formats information 
is available in Tektronix publication part 
number 99 AX-4607. The standard was also 
discussed in Electronics , March 24, 1981: 
“ In-house standards fill gaps in instrument- 
computer interface,” by Maris Graube, 
Tektronix, Inc. 



long term companion to the 4050 Systems 
and other GPIB compatible system. 

For those interested in details, the following 
table lists some of the features of the 4909. 
14" hard disk 
600 bits per inch 
384 tracks per inch 
30 millisec seek time 
8.33 millisec latency 

Your TEKTRONIX Sales Engineer will be 
happy to supply you with more details on 
the 4909 Multi-User File Management 
System. J5D 
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Computers Making Computers 



by Carter West 
Prime Metals 
San Carlos, CA 

Take a look at your 4050 system. The out- 
side is wrapped in sheet metal; the inside 
contains many metal parts enclosing electri- 
cal components, mechanical components 
and so forth. Prime Metals is a precision 
sheet metal firm manufacturing these types 
of metal components for computer systems 
in use today. One of our best “ workers” in 
the process from design to final product is 
the 4051 desktop computer. 

Using a series of programs, the 405 l’s capa- 
bilities, and our U.S. Amada punch press, 
we can turn out parts efficiently and accu- 
rately. A human operator could possibly 
make one accurate part, but not 3,000 and 
not at 4:30 in the afternoon or 8:00 on a 
Monday morning. 



WORK TIME : 62 SEC. 

71 HITS 
26 NBL HITS 

HANDLING : 13 SEC. 




Fig. I. A punch press works very much like a 
sewing machine. For one punch, the head comes 
down, punches, then raises and moves to the next 
punch position. For contouring, the head comes 
down and up rapidly, continuously moving a 
short distance to make a smooth cut; this is 
called nibbling. Note that the 4051 calculates 
user time of each part, a big help in costing or 
quoting. 

As the first step, we define the part on the 
405 1 . The code produced will eventually be 
transmitted to a paper tape drive which 
punches out a tape to instruct the punch 
press. 



Program functions are invoked through the 
405 1 ’s User-Definable Keys (UDK). Press 
a UDK and the program prompts for the 
new part. Referring to a book of codes, and 
reading from a blueprint, the operator keys 
in the move or draw and the X, Y dimen- 
sions of a part. 

Tekniques 
Vol. 5 No. 4 




Using a 405 1-to-paper tape-to-punch press system, Prime Metals has increased productivity and 
accuracy in the sheet metal fabricating shop. 




Machine operator mounts the sheet metal “ blanks” and clamps them. The rest is automatic. (Photos 
courtesy of Prime Metals.) 



Once the cut dimensions and punch posi- 
tions are keyed in, another UDK is pressed 
and the operator keys in tool instructions. 
Our punch press has a turret tool holder 
with 72 tool stations. 

Therefore, we must tell it which tool to put 
in which station and which station to use at 
which cut. For instance we might use a 1" 
by 1" punch at station 1, a 1/4" round hole 
punch at station 3, and so on. 

The sheet size is figured so the shearing de- 
partment can cut the metal blank to those 




Fig. 2. Instructions from 4051 to punch press in- 
clude which tool to put in which of the 72 sta- 
tions in the turret tool holder. ( Diagram from 
U.S. Amada Ltd.) 
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dimensions. Clamp positions guide the ma- 
chine operator in clamping the sheet metal 
on the punch press. 

Before sending the code to the 4907 disk, 
the operator plots on the screen exactly 
what the punch press will do. If desired, we 
can take calipers, scale the plot, and tell if a 
hole or cut is within at least 1/16 of an inch 
to the blueprint callout. 




Fig. 3. Previewing the plot on the 4051 display 
prevents mistakes. Notice the elliptical cutout 
automatically calculated by the 4051. 



Once the operator is happy with the input, 
it’s stored on the disk. What we have at this 
point is a series of codes that the paper tape 
drive understands. 



(tells punch press the 
“ home” position.) 

(x any y coordinates, 
T = tool, 
followed by the 
Station number) 



27 

28 

29 

30 

31 

32 

33 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 



G92X71990Y50010 

G93X1855Y2000 

X20000Y12395T340 

X380 

G93X0Y3855 

X313Y3250T271 

G93X1855 

X1500Y4500T123 

G37I1930P1 J-2620K1 

X5740 

X5320Y2250T226 
A1G37I2060P1 J-750K1 
X9020Y1880 
B 1 

X8520 Y3000 
G37I2750P1J2052K1 
X 1 5650Y5250 
A1G36I-2060P1 J-1500K1 
Y2630 
B1 

X17000Y 1130 
G37I2060P1J875K5 
X17535Y1130T351 
G36I730P1 J875K5 
X14187Y5218T342 
A1G36I605P1 J-718K2 
X14187Y2598 
Bi 

X 1 0223Y 1162 
A1G37I-605P1 J655K1 
X6523Y1547 
Bl 

G93X0Y2000 
X-117Y1910T228 
X1910Y-1 17 
X 2 2 1 8 0 
X24207 Y 1910 
G93X1855Y3855 
X21320Y-940T255 
X-940 

X9700Y3431 

G36I405P1 J1195K1 

X-1000Y7440 

G37I22380P1 J1600K2 

X15690Y9730 

G36I-1917P6J1405K1 

G50 



Fig. 4. Each line of code instructs the machine 
to move or cut or punch, specifies the coordinates 
and the tool station. 

When we’re ready to punch the tape, the 
data is transmitted over the Option 1 to the 
tape drive. We can also read the code back 
in from the paper tape punch. 



At production time the tape is sent to the 
machine operator on the fabricating floor. 
Just before the tape goes downstairs another 
4051 program enters the name of the cus- 
tomer, tape number, job number and so 
forth. We also input the tools used, the loca- 
tion of the tools and the shear sizes. The 
hard copy of the plot is put in plastic with 
this information slipped into the other side. 
By tagging this to the sheet metal the shop 
foreman knows exactly what’s being worked 
on and for whom. 

After the machine operator inserts the tape 
into the punch press controller, an optical 
scanner reads the tape and transmits the 
instructions to the machine. All the operator 
has to do is mount the sheet metal on the 
punch press, clamp it, then remove it and 
repeat the process. High level skills are not 
required, and allows the operator to perform 
other duties until the part is completed. 

From feedback signals, the control unit veri- 
fies the machine is cutting and punching 
where it should be. Accuracy is within 
1 /5000 of an inch. 

The 405 1 has created a whole new approach 
for us. It can do anything. For instance, to 
calculate a 1 3 ° arc across a 1 2 ° shape man- 
ually would require days; the 4051 can do it 
in 20 seconds, and it’s accurate! 

It’s also very easy to define identical parts 
for the same sheet. We key in the dimen- 
sions one time. The 4051 calculates the 
placement of the like parts, where they will 
be cut or punched, and optimizes the moves 
between parts or cutting areas and tool 
changes. 



WORK TIME : 89 SEC. SHEET SIZE 

24340, 14750 

130 HITS CLAMP P0S. 

0 NBL HITS 4000 ,26000 

HANDLING : 12 SEC. 




Fig. 5. The 4051 will memorize and repeat a 
pattern. The design was programmed only once, 
then the 4051 told to repeat it 15 more times. 

However, the 4051 is not limited to coding, 
sheet metal fabrication. We use it for pay- 
roll, job storage and inventory. One of our 
immediate goals is using it for status report- 
ing. The secretary would input the status of 
all jobs based on purchase orders received 
and jobs finished. We predict a reduction in 



time spent updating this report from two 
hours to 15 minutes; and this is a daily re- 
port. Thus, the information for each cus- 
tomer’s would be available first thing in the 
morning-very critical since customers have 
a daily need to know when their parts will 
be available. 

We work on a tight schedule and with close 
tolerances; the 4051 is helping us do a better 
job for our customers. JSh 



WORK TIME : 86 SEC 

21 HITS * 

162 NBL HITS 

HANDLING : 14 SEC 




SHEET SIZE 
17711,16623 
CLAMP P0S. 
1500.16211 



Fig. 6. The 4051 will compute any angle ( or 
arcs) asked of it. 



WORK TIME 5 68 SEC. 

102 HITS 10 INCHES TRU 
0 NBL HITS 

HANDLING : 13 SEC. 



SHEET SIZE 
24090. 15395 
CLAMP P0S. 
6090 ,17000 




Fig. 7. Hard copy specifies sheet size for the 
shearing department and clamp positions for the 
machine operator. It also carries the work time 
for the punch press and handling time for the 
machine operator. 



WORK TIME : 100 SEC 



HANDLING : 8 SEC. 



y 



Should be 
the same 
\ 



• •/ 

Should be 

the same 

A 

■fy 



& 






0.0 . 






Fig. 8. The use of “plotting" instantly shows er- 
rors to be corrected. 



12 



Tekniques 
Vol. 5 No. 4 






New ROM Pack Produces High Quality 
Characters and Symbols on 4052 and 4054 
Graphic Systems and Plotters 




by Mark Mehall 
Tektronix, Inc. 

Beaverton, OR 

The 4052R11 Character and Symbol 
ROM pack brings high quality stroked 
characters or symbols to the 4052 or 
4054 Graphic System and the 4662 or 
4663 Plotter. It adds 27 commands to 
4050 Series BASIC to display alphanu- 
meric characters and symbols, draw 
smoothed arcs and circles, generate cus- 
tom symbols or provide additional graph- 
ics enhancements. Character/symbol siz- 
ing, spacing, proportioning, rotation 
angle, degree of slant, and smoothness 
are easily programmed. 

Over 100 different characters/symbols 
are contained in the 4052R11 ROM pack 
including upper and lower case letters 
for both the English and Greek alpha- 
bets, mathematical and special symbols, 
and characters for Swedish, German, 
Spanish and Danish languages. 

Using the Character and Symbol ROM, 
you may easily draw arcs and circles. 
Circles are drawn around the cursor po- 
sition at a given radius. Arcs can be 
specified by giving either the radius and 
starting and ending angles of the arc, or 
by giving the center of the arc and the 
angle from the current cursor position. 



You may also design your own symbols 
which can be manipulated in the same 
manner as the ROM pack charac- 
ters/symbols. 

The Character and Symbol ROM Pack 
provides additional graphics functions for 
more flexible graphic input from the 4052 
and 4054. Using the ROM with the Dy- 
namic Graphics Option of the 4054, you 
may drag refreshed objects around the 
screen, dynamically reading the coordi- 
nate locations of the object. 

You’ll find the Character and Symbol 
ROM pack an invaluable aid for labeling 
engineering drawings, preparing presen- 
tation graphics, or annotating any type of 
alphanumeric or graphic design. Contact 
your local Tektronix Sales Engineer for 
more details about the versatile 4052R11 
ROM pack. JS) 



UPPER and I ower Case : 

Eng I i sh : ABCD . . . wxyz y 

Greek: t<l>IT . . . ilflixa £ 

R 

Numbers: 0123456789 T 

Centered Symbols: □ OA + otsiweEB + I 

Math Symbols: ^ 

Special Symbols: |_ 

Swedish, German, Spanish and |_ 

Danish Characters: AOAoaONi^ A 

B 

Slanting: and Right : - 

Over 100 Symbols, ANY SIZE. S 



Adds Dynamic Graphics Functions 




Sample of the characters generated using the 
4052R11 Character and Symbol ROM pack. 
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File Names for the 4907 File Manager 

W. Budde from the Optics Section of the 
National Research Council in Ottawa, 
Canada, writes: Could you please tell me 
what the character requirements are for file 
names for the 4907 File Manager? I can’t 
seem to locate them in the 4907 Operator’s 
manual (October, 1980). 

The requirements for file names are: 

1 to 10 characters. 

First character musj be alpha, the 
rest may be alpha or numeric. 

No special characters allowed. 

No spaces or delimiters. 

Internal Representation of Numbers 

Several readers have requested the internal 
format for numeric data in the 4050 system. 
Much of the following information has been 
extracted from the 4051 GPIB Hardware 
Support manual (part #070-2270-00). 

All numeric values that enter the 4050 Ran- 
dom Access Memory (RAM) are stored in a 
special eight-byte floating point format. 



Byte 


Byte 


Byte 


Byte 


Byte 


Byte 


Byte 


Byte 


1 


2 


3 


4 


5 


6 


7 


8 



Status and Exponent Information 

The first byte and the second byte contain 
status and exponent information. The for- 
mat for these two bytes is shown below: 



I g I g I g I g 1 g 1 I 1 II 1 



1 " I 1 1,1 



. Undefined Number Bit 

0 = Defined Number 

1 = Undefined Number 



The bit on the far left (bit 8 in byte 1) is the 
sign bit. This bit tells the 4050 processor 



whether the numeric value is positive or 
negative. If the bit is 0, the number is posi- 
tive or 0. If the bit is 1, the number is 
negative. 

The second bit from the left (bit 7 in byte 1 ) 
is the undefined number bit. The 4050 uses 
this bit in arrays to detect undefined ele- 
ments. Binary numbers coming into the 
4050 will always have this bit set to 0. 

Three bits in byte 1 must be set to zero: bit 
6, bit 5, and bit 4. 

The three least significant bits in byte 1 and 
all the bits in byte 2 form a binary number 
that serves as the exponent. The exponent 
range for 4050 numbers is 2“ 1024 to 2 1023 . 
To keep the exponent representation posi- 
tive, 1024 is added to each exponent to 
make the range 0-2047. This means that if 
bit 3 in byte 1 (the most significant in the 
exponent) is set to 1, the exponent is 0 or 
positive. If bit 3 in byte 1 is set to 0, the 
exponent is negative. 

Example 1 : Bit 3 in byte 1 and bit 2 in byte 
2 are set to 1 . The rest of the exponent bits 
are set to 0. What is the true exponent of 
the floating-point number? 



> -22 -23 -24 -25 -26 -27 -28 -29 -30 



|o |0[a |g |o ]q |a |0||0|0 |o |o l-O |g |o |q | 



. 7.629394531 E-6 



. 2.980232239E-8 



-36 -37 -38 



| 0 | 0 | Q | 0 [ 0 | 0 | 0 | 0 || 0 | 0 |g|g|o|g|g|o| 



1 . 1 641 5321 8 E- 1 0 



. 4.547473509E-13 



If bit 6 and bit 8 in byte 3 are set to 1 as 
shown above, and the rest of the bits are 0, 
the binary mantissa is equal to 2 _1 -f 2 
which is equal to .625 in base 10. 



-3 



I I 1 1 1 I i I g I a I g | g 1 a | a | a | a | i | g_| 



This binary bit pattern represents 1026. The 
true exponent is found by subtracting 1024 
from this number, therefore, the exponent is 
2 (i.e., 2 2 ). 



Example 2: Bits 1 and 2 in byte 1 and bits 1 
through 8 in byte 2 are set to 1 . The rest of 
the exponent bits are set to 0. The true ex- 
ponent is found by subtracting 1024 from 
this number, therefore, it is 1023 — 1024 or 
-1 (i.e.,2- 1 ). 



In another case, if bit 8 in byte 4 and bit 8 
in byte 7 are set to 1 and the rest of the bits 
are zero, the binary mantissa is equal to 2~ 9 
+ 2~ 33 . This number is equivalent to 
.00195312511642 in base 10. 

This representation method allows numbers 
to be stored in the 4050 memory with a 
great deal of precision. 



Floating Point Numbers are Normalized 

ASCII numbers coming into the 4050 are 
converted to floating point and normalized; 
that is, the binary bits in the mantissa are 
shifted left as far as possible and the differ- 
ence made up in the exponent. The follow- 
ing examples illustrate the difference 
between a floating point number that is not 
normalized and a number that is normal- 
ized. Both numbers represent the same deci- 
mal value. 

For instance A = .0625 is entered into the 
4050 system. Converting this decimal frac- 
tion to its binary equivalent we have .0001. 



1024 512 256 128 64 32 



|0 [0 |(3 |0 [0 |l |0l0||g|0|o|Q|0|0-|g | ~0 1 



T~TTT»"n I i 1 ■ h M i I ■ 1 1 h h I 



2*' 2 Z 2' J 2'“ 2' 5 2' 6 2‘ 7 2' 8 2 a 2' 



2* - 2' IJ 2' 1 * 2" 0 2'" 



| 0 | 0 [ 0 | 1 | 0 | 0 | 0 | 0 || 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 



IMPLIED RADIX POINT 

Binary Mantissa Represents Numbers 

BYTE 5 BYTE 6 

The remaining bytes in the floating point ' ~ 2 .» ,,, ... > 

number form a binary mantissa which al- 1 0 | 0 | @ 1 0 | 0 | 0 1 9 \ g |[ o 1 0 1 0 1 0 | g [ 0 1 0 | a 1 
lows numbers to be represented with 48 bits t_ — 7.629394531 es 

of precision. This representation is shown 

below: , w , 

2 -33 2 -34 2 -35 2 '36 ,-37 ,-38 .,-39 2 -40 ^41 ,-42 ,-43 .,-44 2 -45 .,-46 .,-47 2 -48 

I 0 I 0 I 0 I 0 I 0 I 0 I 0 I 0 II 0 I 0 I 0 I 0 I 0 I 0 I 0 I 0 I 

BYTE 3 BYTE 4 1 1 1 1 1 1 1 1 " 1 L — 1 1 1 1 1 1 



2 2 Z 2° 2'* 2 



2 -/ 2 -u 2 -a 2 -iu 2 -11 2 -12 2 -13 j-ii 2 -ia 2 - 



1 i [ 0 i i i 0 | 0 | 0 | 0 | j I a 1 0 i' a | 0 | a | 0 \ c | 0 i Example 3: The floating point number is not 

. 0625 \ .001953125 normalized because there are leading zeros 

in the mantissa. 



. IMPLIED RADIX POINT 
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BYTE 1 




BYTE 2 








\ / 

1024 512 256 128 64 32 16 8 4 


2 1 


~V 


□l 


|0|0|d|0|0|l 


U rrnr 


1 1 1 1 1 1 1 1 1 


1 0 1 


h 




















Exponent 








BYTE 3 




BYTE 4 






r~ 


f 1 2‘ 2 2" 3 2' 4 2* 2® 


2 7 2® T 9 


2-10 2 -11 2 -12 2 -13 


2-14 2-1S 


2*16 


□ 


| 0 | 0 | 0 | 0 | 0 | 


0 1 0 II 0 1 


0 | 0 | 0 | 0 | 


0 1 0 1 


12 




; | t { .0625 

1 Z1T ' 2S 
























BYTE 5 




BYTE 6 






r~ 


•17 -18 -19 -20 -21 s -22 

? 2 2 2 2 2 


2 "23 


2‘ 26 2 22 2 28 2 29 


2- 30 2 -31 


2^ 2 


d 


a|0|o|0|0|0| 


0 1 0 II 0 1 


0 | 0 | 0 | 0 | 


0 1 0 1 


12 




BYTE 7 




BYTE 8 






2 


-33 2 -34 2 -35 2 '36 2 3? ^38 




2-42 2 ' 43 2 44 2 45 


2*46 2 " 47 


2 -48 


[j 


i | 0 | 0 | 0 ( 0 [ 0 | 


0 | 0 || 0 | 


0 | 0 | 0 | 0 | 


0 | 0 | 


I] 



Example 4: The floating point number has 
been normalized by shifting the mantissa 
bits three places to the left. To make up for 
the increase in the value of the mantissa, the 
exponent is decreased by 3. 



We will illustrate in the next section that 
the decimal value of this normalized binary 
number is the same as the decimal value of 
the binary number shown in example 3. 

All binary numbers coming into the 4050 
must be normalized because the 4050 
firmware math routines assume that all 
floating point numbers in memory are 
normalized. 

Putting It Together 

The complete floating point representation 
is expressed in the following formula: 

N = (-l) s x M 10 x 2 (E ‘ I024) 

where N = the decimal number entered 
into the 4050 

M, 0 = the decimal equivalent of 
the binary mantissa (last 
six bytes). 

s = the sign bit (1 or 0). 

E = the decimal equivalent of the 
binary exponent. 

Referring to example 3, let’s compute the 
decimal equivalent of the floating point 
number. 

The sign bit S = 0 

The exponent E = 1024 

The mantissa M 10 = 2 -4 = .0625 

The decimal number N = (— 1)° x .0625 x 

2 ( 1024 - 1024 ) 

N = 1 x .0625 x 1 
N - .0625 



Now let’s compute the decimal equivalent of 
the normalized floating point number in ex- 
ample 4. 

The sign bit S = 0 

The exponent E = 1021 

The mantissa M 10 = 2 -1 = .5 

The decimal number N = (-1)° x ,5 x 

2(1021-1024) 

N = 1 x .5 X 2“ 3 
N = .0625 

If A = 100 is entered into the 4050 system, 
its floating point representation is: 







BYTE 1 




BYTE 2 






y~ 




1024 5 


12 256 128 


64 32 16 8 


4 2 




M 


0 | 0 | 0 | 0 | 1 | 


0 | 0 || 0 | 


0 | 0 | 0 | 0 | 


i | i | 


























Exponent 










BYTE 3 




BYTE 4 






r~ 




2 -2 2 -3 2 -4 2 -5 2 ' 6 


2" 7 2' 8 2' 9 


2-10 2-H 2-12, 2-13 


2-14 2-15 


2"1 6 


d 


IE 


1 | 0 | 0 | 1 | 0 | 


0 | 0 || 0 | 


0 | 0 | 0 | 0 | 


0 | 0 | 


J2 






| | \ .0625 

L_bir' 125 














.5 














IMPLIED RADIX POINT 














BYTE 5 




BYTE 6 






r 


2 17 


2-18 2-19 2-20 2-21 s 2 -22 


2-23 2 V 24 / ~* 


2*26 2*27 2*2 8 2 " 29 


2-30 2-31 


~\ 

2-32 


d 


u 


0 | 0 | 0 | 0 | 0 | 


0 | 0 | 0 | 


0 | 0 | 0 | 0 | 


0 | 0 | 


12 






7.629394531 E-6 














BYTE 7 




BYTE 8 






r 


2" 33 


2 -34 2 -35 2 -36 2 ' 37 2 -38 


2-39 2 V 40 X ~I 


2- 42 2' 43 2‘ 44 2' 45 


2 -46 2 -47 


> 


[ 


u 


0 | 0 | 0 | 0 | 0 | 


0 | 0 || 0 | 


0 1 0 1 0 1 0 1 


0 | 0 | 


T] 



First, the decimal 100 is converted to its bi- 
nary equivalent of 1100100. This value is 
normalized by shifting it right seven places. 
The change in value is reflected by increas- 
ing the exponent by 7, or to 1031. 

Now, applying the formula 

The sign bit S = 0 

The exponent E = 1031 

The mantissa M, 0 = 2 _1 +2 -2 + 2~ 5 = .5 
+ .25 + .03125 = 
.78125 



The decimal number N = (—1)° x .78125 

x 2( 1031 - 1024 ) 

N = 1 x .78125 x 2 7 
N = 100 

To represent the number 0.0, bit 3 in byte 1 
is set to 1 (exponent = 1024), the remain- 
ing bits in the 8 bytes are all set to 0. Jg£) 
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Getting Larger Images 
from the 4611 Hard Copy Unit 



by Cathy Cramer 
Tektronix, Inc. 

Wilsonville, OR 

We’re pleased to announce a new option for 
the 4611 electrostatic Hard Copy Unit*. 
Called Option 1 for Landscale Image For- 
mat, it provides a larger image on the paper, 
for easier reading and better detail. 

Option 1 is factory or field-installable, and 
creates images in a “ landscape " rather than 
"portrait " orientation, with an enlarged im- 
age size. The landscape format provides a 
10" by 7.5" image on legal-size paper (see 
Figure 1). That’s 30 extra square inches of 
image area! The legal-size paper can be 
hand-trimmed to 8 1/2" X 11" with one 
cut, leaving a half-inch border on all sides of 
the image. 

The landscape format provides a more 
readable image, and improved copy quality 
when used with 19" or larger storage tube 
displays. Dot size, line width, dot density 
(dots per square inch), and toner concentra- 
tion all remain unchanged. However, the to- 
tal number of dots per image increases, 
providing finer detail for small-size alpha- 
numerics and dense graphics. 

A sample copy is printed on the following 
page. Since it’s reproduced by a printing 
process, it does not represent the copy qual- 
ity of an actual sample. However, it does 
show you the new image size and 
orientation. 

‘For more information, contact your local 
Tektronix representative about the 4611 
Option 1 Hard Copy Unit. JgjD 

TEKniques Vol. 5 No 1 introduced the 4611 Hard 
Copy Unit. 




PARTICLE COUNT 



Temperature * 123 Degrees Celsius 

Pressure = 7Qm PROCESS WSX892.129 

Magnetic Flux * 220 



< 8. 5 M • 
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t 
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<- 
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Standard portrait format Option 1 landscape format 



4611 Standard and Optional Image Formats 
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Belgium, United States Entrants 
Win Firsts in Graphing Contest 



Dony Robert, mathematics instructor 
from Brussels, Belgium, walked away 
with first prize in the 3-D Graphing con- 
test sponsored by TEKniques. His 
“General Function Z=F(X,Y) Plot” 
draws two variable functions with hidden 
lines removed. The program, user inter- 
face and documentation are outstanding. 
4050 Applications Library software users 
may remember Mr. Robert as having 
contributed “3D Function Plot” to the 
Applications Library a couple of years 
ago. 

From Whirlpool Corporation in Benton 
Harbor, Michigan, Steven Salisbury sent 
in his unique “Pipechart.” His original 
approach to data representation garnered 
Steve first place in the 2-D Graphing 
with Shading contest. He is a marketing 
data analyst with Whirlpool. 

Second place winner in 3-D Graphing is 
Dr. P.R. Tregenza from the Dept, of Ar- 
chitecture at the University of Notting- 



ham in England. Hidden line removal 
and perspective are included in his func- 
tion plot. Optional output as a stereo 
pair enhances his program and provides 
the name “Stereo Surface.” 

Jerry Anderson, a quality assurance en- 
gineer from Bartlesville, Oklahoma, 
grabbed second and third prizes in 2-D 
Graphing with “Contour Plots” and 
“Hierarchal Clustering.” He also en- 
tered two additional programs, “Nonli- 
near Mapping” and “Vertical Plot.” Jer- 
ry indicates the four programs will aid in 
applications of statistics, operations 
research, pattern recognition, cluster 
analysis, quality assurance, and multivar- 
iate analyses. 

A 4050 user from the University of Bun- 
desweher in Munich, Germany, captured 
third prize in the 3-D Graphing. Lothar 
Tschimpke contributed “3-D Plot with or 
without Hidden Lines.” His code is ex- 
tremely easy to read. 



Honorable mention went to Robert 
Kennedy and Elliot Noma from Philadel- 
phia, Pennsylvania. “PLOT3D” func- 
tions as an appended subroutine to a 
main program. Their code is well RE- 
Marked. 

All programs are describedin the “New 
Abstracts” section of TEKniques. 

TEKniques thanks all of the contributors 
who took time out of busy schedules to 
document and send in their programs. 
Their programs will provide many 4050 
users with unique and useful methods for 
graphing. JgD 



New GPIB Guide Features 4050 
as Instrument Controller 



GPIB instruments designed by Tektronix 
go beyond simply conforming to the 
IEEE Standard 488-1978. Tektronix 
GPIB instruments use the Tektronix 
Standard for Codes and Formats* pro- 
viding a common message structure for 
all system instruments. The result is 
easier, faster, and more efficient system 
integration and application programming 
between the controller and the instru- 
ments. 

The GPIB Programming Guide (part # 
070-3985-00 aids the user of 4050 Desktop 
Computers and TEKTRONIX TM5000 ser- 
ies instruments in making the software 



*The Tektronix Standard for Codes and 
Formats is discussed in Tektronix- publi- 
cation “A Vital Link in Instrument Sys- 
tems: The General-Purpose Interface Bus 
(GPIB),” part #AX-4524-l. 



connection. The Guide introduces the 
4050 as a controller for TM5000 instru- 
ments, with programming information 
specific to instrument control. Major top- 
ics in this section with coded examples 
where applicable are: 

4050 Desktop Computer IEEE con- 
troller capabilities 
GPIB Input/Output 
Interrupt handling 
Interrupt handling statements 
Utility routines 

4052/GPIB send and receive program 

TEKTRONIX TM5000 series instru- 
ments specifically covered in the Guide 
include: 

DC5009 and DC5010 — 
Programmable Universal Coun- 
ter/Timers 



DM5010 — Programmable Digital 
Multimeter 

FG5010 — Programmable Function 
Generator 

PS5010 — Programmable Power Sup- 
ply 

A final section lists programs that show 
two or more Tektronix TM5000 instru- 
ments working together in a system with 
the 4050 as the controller. The guide in- 
cludes source code for 47 routines. 
Machine readable copies of the routines 
are included in the 4050 Applications Li- 
brary as part of TEKniques Vol. 5 No. 4 
T1 tape, part number 062-5981-01. JgD 
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TYPE Function and 4051 



Overwrites Header: 




by Tom Price 
Lorillard 
Greensboro, NC 



Calling the TYPE function before writing 
to an empty file on a 4051 will overwrite 
the file header. Issuing a second FIND 
command after the TYP function cor- 
rects the problem. 



158 FIND F 

168 IF TYP<8><>8 THEN 288 
178 PRINT 833: A* 

288 REH GET ANOTHER FILE 



Preserves Header: 



158 FIND F 

168 IF TYP(8)<>8 THEN 288 

178 FIND F 

180 PRINT 033: A$ 



Conditional GOSUB 

by Tom Price 
Lorillard 
Greensboro, NC 

A useful programming construct is the 
conditional GOSUB. How many times in 
4051 BASIC have you wanted to write 
IF A<=B THEN GOSUB 500? It would 
probably have come out coded like this: 



158 IF A>B THEN 178 
160 G0SU8 588 
178 REM 



Conditional GOSUBs make programs 
much easier to read and cut out lots of 
“dead” GOTOs. The above example be- 
comes: 



158 GOSUB A<*B OF 508 



This will work for any conditional except 
one containing an equals preceded by 
one variable name. The 4051 parser will 
not accept it unless it’s enclosed in par- 
entheses. It then removes the par- 
entheses and is unable to reparse it if the 
line is edited or the program is saved in 
ASCII format. 



Won’t work: 



GOSUB 


A=B 


OF 


500 


GOSUB 


L=50 


OF 


1800 


Works 


well: 






GOSUB 


NOT 


(AOB) OF 500 


GOSUB 


50=L 


OF 


1000 



This affects a very small percentage of 
the cases encountered during normal/' 
programming. No extra memory is re- v 
quired when the branch is not taken. I 
think you will find this novel and quite 
useful. 



Dynamic Programming Aids 



by Scott E. Lee 
Tektronix, Inc. 

Indianapolis, IN 

Several techniques I have found useful 
are incorporated in the following pro- 
gram. The main function of the program 
(lines 100 to 230) is to dynamically create 
and evaluate expressions which might be 
useful in several cases: 



4 GO TO 100 

40 PAGE 

41 LIST 100,230 

42 RETURN 

80 KILL "EVAL.BAK" 

81 CALL "RENAME" , 0, "EVAL" , 


■EVAL.BAK" 


82 SAVE "EVAL" 

83 RETURN 
100 INIT 

110 PRINT "TYPE EXPRESSION 




120 INPUT A* 

130 A*= " 1 0000 PRINT "&A* 

140 CALL "FILE" ,0, "SEXPEVAL .LINE" , S* 


150 IF S*<>"" THEN 170 
1 60 CREATE "8EXPEVAL . LINE" 


, "A" j 1 ,0 


170 OPEN "8EXPEVAL .LINE"; 1 


, "F" ,S* 


1 80 PRINT » 1 , A* 

190 PRINT n 1 , 

200 CLOSE 1 

210 APPEND "SEXPEVAL .LINE" 


, "A" ; 220 


220 REM Th 1 8 line will be 


replaced with a PRINT 


230 GO TO 110 



1. Using “Calculator Mode” without ex- 
iting from a program. 

2. Examining variables for program de- 
bugging without pressing BREAK 
(this mode could be invoked with a 
UDK). 

3. Creating functions on the fly by con- 
catenating together things like 
“ + SIN(X)” , “ + COS(X)’\ and 
“+LOG(X)”. In this case an assign- 
ment statement should be created in- 
stead of a PRINT. 

This same technique could also be used 
to create multi-line routines to be AP- 
PENDed. 

Note that the extra PRINT at line 190 is 
needed to generate a blank line which 
means end-of-file to the APPEND com- 
mand. 



Also in this program (lines 80 to 83) is a 
UDK definition that will SAVE the pro- 
gram and make a backup of the previous 
version. 

Lines 40 to 42 allow you to list a section 
of the program (for example the section 
you are currently working on) with only 
one keystroke. Sometimes I will define 
several of the UDK listing keys, one for 
each subroutine that I am debugging. 
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Rotation About an Arbitrary Axis 



by Javad Farjami 
Tektronix, Inc. 
Wilsonville, OR 





The steps to rotate an object through an 
angle 6 about an arbitrary axis are: 

1. Translate the object into a new coor- 



dinate system (Matrix T): 






1 


0 0 


0 




0 


1 0 


0 


T = 


0 


0 1 


0 




_I x o 


-y 0 . -Zo 


1 



2. Map the unit vector which lies along 
the axis of rotation into the unit vec- 
tor along the Z axis (Matrices Ri,R 2 ): 



Ri = 



10 0 0 
c b 

0 Vb 2 +c 2 Vb 2 +c 2 0 
— b c 

0 Vb 2 +c 2 Vb 2 +c 2 0 

0 0 0 1 



R? = 



Vb 2 +c 2 0 

0 1 

-a 0 

0 0 



a 0 

0 0 

Vb 2 +c 2 0 

0 1 



where <a,b,c> is a unit vector along 
the axis of rotation. 



3. Perform the desired rotation 0 about 
the Z axis of the new coordinate sys- 
tem (Matrix R 0 ): 



Re = 



cos d -sin 0 0 0 

sin 0 cos 6 0 0 

0 0 10 

0 0 0 1 



4. Apply the inverse of step 2 (Matrices 

R^Rf 1 ): 



Vb 2 +c 2 — a 

a 2 +b 2 +c 2 ^ a 2 +b 2 +c 2 



0 1 0 
a 

a 2 + b 2 + c 2 0 Vb 2 +c 2 
a 2 +b 2 +c 2 



0 

0 



0 0 0 1 



where (x 0 ,y 0 ,z 0 ) is a point through 
which the rotation axis passes. 



Rf 1 



10 0 0 
c b 

0 Vb 2 +c 2 Vb 2 +c 2 0 
b c 

0 Vb 2 + c 2 Vb 2 +c 2 0 

0 0 0 1 



Note: a 2 +b 2 +c 2 = 1; since <a,b,c> is 
assumed to be a unit vector. 

5. Apply the inverse of step 1 (Matrix T _1 ): 




1 

0 

0 

x 0 



0 0 0 

1 0 0 

0 1 0 

y 0 z 0 l 



Note: the purpose of step 4 and 5 is 
to return the object to its original 
coordinate system. 



6. The complete transformation is thus: 
Q = TR 1 R 2 R 0 R 2 - 1 R 1 1 T- 1 



or: 

[x,Y,Z,i] = [x,y,z,l]- Q 
or: 

X = (x-x 0 )(a 2 + (l-a 2 )cos 6) 

+ (y- y 0 ) (ab(l- cos 0)) + csin 0) 

+ (z-z 0 )(ac(l-cos o) - b sin q) + x 0 



Y = (x-x 0 )(ab(l-cos 0) -csin 0) 

+ (y-y 0 ) (b 2 + (l- b 2 )cos e) 

+ (z- z 0 )(bc(l-cos 0) + a sin 0) + y 0 



Z = (x-x 0 )(ac(l-cos 0) +bsin 0) 
+ (y-y 0 ) (bc(l— cos 0) - a sin 0) 

+ (z- z 0 )(c 2 +(l-c 2 ) COS 0 ) + Z 0 



100 INIT 
110 PACE 

1 28 WINDOW -260.260.-200.200 

1S0 PRINT "ENTER A POINT ON THE AXIS OF ROTATION,"; 

140 INPUT X0.Y0.Z0 
150 SET OECREES 

160 PRINT "ENTER THE DIRECTION OF THE AXIS OF ROTATION:"; 
170 INPUT A.B.C 

180 REfl COMPUTE THE COMPONENTS OF THE UNIT VECTOR. 

190 0= (AT2+BT2+CT2) T0 . 5 

200 A=A/D 

210 B=B/D 

220 C=C/D 

230 A2= 1 - AT2 

240 B2= 1 -BT2 

250 C2= 1 -CT2 

260 REM B5 REPRESENTS THE TANGENT OF THE ANCLE THAT EACH 

270 REM AXIS (X.Y, AND Z) MAKES WITH THE SCREEN. 

280 B5= (2/3 ) T0 . 5 
290 A5=50 
300 M= I 80 
310 PACE 

320 REM 0 IS THE ROTATIONAL ANCLE. 

330 FOR 0=0 TO 360 STEP 20 
340 01=1 -COS (01 

350 REM THE FOLLOWING LOOP DRAWS THE OBJECT (CIRCLE) . 

360 FOR J=-M TO M STEP 5 
370 X!=A5*SIN(J)-X0 
380 YUA5-Y0 
390 Z1=A5*COS(J)-Z0 
-w 400 U1=X1*(AT2+A2*C0S(0) 1 
410 VI=Y1*(BT2+B2*C0S(0) 1 
420 W1=Z1*(CT2+C2*C0SI0) ) 

430 U2=Y1*(A*B»01+C»SIN(0) 1 



440 V2=ZmB*C*01+A*SIN(0) 1 
450 V2=X1 * ( A»C*01 +B4SIN (0) 1 
460 U3=Z1*(A*C*01-B*SIN(0l) 
470 V3=X1*(A*B*01-C*SIN(01) 
480 W3=Y1*(B*C*0I-A*SIN(01) 
490 U=(U1+U2+U3+X0)*B5 
500 V=(V1+V2+V3+Y0)*B5 
510 W=(Wl+W2+W3+Z0)tB5 
520 X9= ( V-U) *COS ( 30 ) 

530 Y9=W- (U+V)*SIN(30) 

540 IF J=-M THEN 570 
550 DRAW X9.Y9 
560 CO TO 580 
570 MOVE X9.Y9 
580 NEXT J 
590 NEXT 0 
600 END 
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Function Plot with Auto Scaling 



by Dr. J.L. Aubel 

Department of Physics 
University of South Florida 
Tampa, FL 

The following program will automatically 
scale and plot a function — f(x) — which 
may include user-defined parameters. 
The function is described at statement 
110. Parameters may be set in statements 
900 and 990. 



100 Y=SINCX!>/X 
Origin I s at 9, 0 

Tic Intervals aro I for x and 0.02 for y 




110 Y*TANOO 




1 REM Function plot 

3 ON SIZE THEN 400 

4 PRINT "LEnter function at line 110. Then press UDK2" 

5 PRINT "Paraneters nay be entered in lines 909 to 990" 

6 D=32 

7 END 

8 GO TO 890 
100 Y=ASN<X> 

190 RETURN 

200 IF Y=0 THEN 290 
210 T5= 1 0t I NT < LGT ( Y ) > 

220 Y=0.2*INT<5*Y/T5+1>*T5 
290 RETURN 

308 T5=10tINT<LGT<2*S>> 

310 T=<2+3*(S--'T5>2. 5>-<S/T5<l >>*T5/10 
390 RETURN 

400 IF X>X0 THEN 190 
410 X=X+X5.'10 
420 GOSUB 100 
430 RETURN 

890 REM Set Paraneters 

1080 PRINT "LEnter Xnin, Xnax" 

1010 Y0=0 

1020 Y9=0 

1030 INPUT X0,X9 

1040 X5=<X9-X0)/10 

1050 IF X5<=0 THEN 1000 

1060 X=X0-X5 

1070 X=X+X5 

1080 GOSUB 100 

1090 Y9=Y9 MAX Y 

1100 Y0=Y0 MIN Y 

1110 IF X<X9 THEN 1070 

1120 Y C Y9 
1130 GOSUB 20t> 

1140 Y9=Y 
1150 Y=-Y0 
1160 GOSUB 200 
1170 Y0=-Y 
1130 S=Y9~Y0 
1190 GOSUB 300 
1200 T2=T 
1210 S=X9-X0 
1220 GOSUB 300 
1230 T1=T 
1240 PAGE 
1250 LIST 0D: 100 

1255 IF X0<=0 AND X9=>0 THEN 1270 
1260 PRINT 0D: “Origin is at ";X0i", 0" 

1270 PRINT 0D:"Tic intervals are ";Tlj" for x and ";T2;" for y" 

1280 UIEWP0RT 2,130,0,88 

1290 WINDOW X0,X9,Y0,Y9 

1300 AXIS 8D:T1,T2 

1310 X=X0 

1320 X5=S/N 

1330 GOSUB 100 

1340 HOUE eD!X,Y 

1350 X=X+X5 

1360 GOSUB 100 

1370 DRAW 0D:X,Y 

1380 IF X<X9 THEN 1350 

1390 HOME 

1400 END 



Message Prompting 



by J. Eltabet 

University Paris Val 
de Marne 
Creteil, France 

Two subroutines aid in general message 
prompting and answer input. The first 
one displays the message using two 
statements followed with the subroutine 
to prompt for input. 



see H*«" quest i oh * 

2ie gosub 5000 

226 REM Here you perforn answer treatnent 
230 EHD 



5000 REM Question Subroutine 
5010 FOR M9=l TO 8 
5020 PRIHT H*S" *. K' 

5830 NEXT H9 

5040 PRIHT M $r : G"» 

5050 INPUT H$ 

5060 RETURN 



The second one performs a YES/NO 
question input. 



200 H$ a "QUESTI0N. 
210 GOSUB 5000 
220 GOSUB 5070 
230 END 



5000 

5018 

5020 

5030 

5040 

5050 

5860 

5070 

5080 

5898 

5108 

5110 

5120 

5130 

5140 



REM Question Subroutine 
FOR H9=l TO 8 
PRINT H*J" : K“ 

NEXT H9 

PRINT u*r l G"» 

INPUT H$ 

RETURN 

REM Yes/No Subroutine 
U=P0S( "YESNO" , 1) 

IF U THEN 5130 
H$= ,, Y<ES> OR N-COJ PLEASE" 
GOSUB 5008 
GO TO 5080 
0 = 0=1 
RETURN 



Changing a 4052/4054 File Header 



by F.G.G. Voigts 

National Physical Re- 
search Laboratory 
Pretoria, South Africa 

The program given on page 7-42 (Rev. 
A, Mar 1979) of the Reference Manual 
works well on the 4051. The 4052 and 
4054 on the other hand require a CLOSE 
statement (or implied CLOSE, e.g. 



FIND) before the PRINT @33,0:0,0,0. 
Therefore, the program should read: 



100 INIT 

120 PRINT 033,0:0,0,1 

130 FIND 2 

140 INPUT 033: A$ 

150 A$=REP( "MATH" ,28,4) 

168 FIND 2 

170 PRINT B33:A* 

180 PRINT 033: "S" 

185 CLOSE 

190 PRINT 033,0:0,0,0 
280 TLIST 
210 END 
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Modifications to Data Graphing to Redraw Lines 



by Victoria Skwiertz 
Union National Bank 
Pittsburgh, PA 

The following modifications to the pro- 
gram, “Data Graphing” will redraw the 
lines/dashes on the plotter in line graph 
charts. These darker, heavier lines stand 
out more and are easier to read, which is 
particularly useful for graphs that are re- 
produced or drawn for overhead trans- 
parencies. 

The lines are drawn darker and heavier 
under the control of two variables: 

V2 counts the number of times the 
line is redrawn. It is increased to 4 
but can be changed to a higher num- 
ber for even darker lines. 

V3 is the symbol for the change in the 
pen position. It is incremented by 0.1 
with each iteration. A heavier line 
could be drawn by changing this val- 
ue. 



I have worked with several different ver- 
sions of “Data Graphing” and the section 
of the program that draws the lines is 
similar so these modifications could be 
added if your version resembles the list- 
ing. 



In this particular version, “Data Graphing 
for the 4051/2/4” the following instruc- 
tions are inserted after the ‘CHANGE 
PEN COLOR IF DESIRED’ routine. 
The line numbers reference this version. 





4990 


IF 2*32 THEN 4140 




4100 


IF F$="N" THEN 4140 


( initializes pen moving increment ) 


4140 

4141 


REN MODIFICATIONS-REDRAWS LINES ON PLOTTER 
U3=0 


(skips redrawing on screen ) 


4142 


IF 2=32 THEN 4150 




4143 


REN TEST FOR BAR CHART 




4144 


IF B2<K>=1 OR B2<K>=2 THEN 4158 




4146 


REM U2=INCREMENT TO MOOE PEN? U3=C0UNTER FOR IREDRAWS 




4148 


FOR 02=1 TO 4 


(add pen moving increment to pen position ) 


4232 


R=R+U3 






After instruction 4850 insert 


(skip repeating if screen) 


4852 


IF 2=32 THEN 4860 


(skip if bar charts) 


4853 


IF B2<K)=1 OR B2(K)=2 THEN 4860 


(adds 0.1 to move pen position up) 


4854 


03*03+0. 1 


(goes back to redraw lines) 


4856 


NEXT 02 



4090 

4100 

4110 

4120 

4130 

4140 

4141 

4142 

4143 

4144 
4146 
4148 
4150 
4152 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4232 
4240 
4250 
4260 
4270 
4280 
4298 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 

4529 

4530 
4540 
4550 
4568 
4570 



UIEWP0RT 20,120,20,90 
WINDOW 20,120,20,90 
FOR K=1 TO HI 
IF 2=32 THEN 4140 
IF F*="N" THEN 4140 

PRINT "J CHANGE PEN COLOR IF DESIRED, THEN PRESS CR"S 
PRINT 02: "GGGG" i 
INPUT X* 

REM MODIFICATIONS-REDRAWS LINES ON PLOTTER (4232,4852)5/13/81 US 
U3=0 

IF 2=32 THEN 4150 

REM TEST FOR BAR CHART 

IF B2(K>=1 OR B2<<)=2 THEN 4150 

REM U2= INCREMENT TO NOME PEH5 U3=C0UNTER FOR # REDRANS-US 

FOR U2=l TO 4 

X5=0 

Y5=0 

M4= 1 



GO TO 4850 

R=20+70*(Y< I » K)-L2>/S4 
C=S3+S2*<I-1> 

R=R+U3 

IF D4(K>=8 THEN 4850 

IF B2<K) = 1 OR 62 00=2 THEN 4390 

IF E0=1 THEN 428G 

IF IOl THEN 4320 

PRINT 82, 21 : C, R 

E0=0 

C1=C 

R1=R 



C1=C 
R1=R 
GO TO 4850 
PRINT 02,20:C,R 
GO TO 4850 
IF E0=0 THEN 4420 
E0=0 

GO TO 4850 

IF N9=0 THEN 4490 

W2=<Wl*2/H9-0.5)/2 

C2=C-H1+U1+H8*U1*2 

IF B2(K) = 1 THEN 4M0 

L3(I >=L9 

H7< I >=L9 

GO TO 4510 

C2=C 

W2 = W1 

IF RCL9 THEN 4590 
R=R-L9 

PRINT eZ,21:C2-W2,L3<I) 

PRINT @2, 20: C2-W2 ,R+L3(I),C2+H2,R+L3(I),C2+W2,L3(I),C2-W2,L3<I) 
L6< 1 >=L3< I > 

L3< I >=L3< I )+R 
L6 <2>=L3( I ) 



4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 



4850 

4852 

4853 

4854 
4856 
4860 
4870 



GO TO 4650 
R=L9-R 

PRINT (?Z,21:C2-W2,N7<I> 

PRINT @Z , 20: C2-W2, N7< I >-R, C2+W2, N7< I )-R, C2+W2, N7< I > , C2-W2, N7< I) 
L6(2)=N7 < I ) 

N7< I )=N7( I ) -R 
L6< 1 )=N7 < I ) 

IF P(K)<0 THEN 4760 
IF D<K>=0 THEN 4850 
Dl=W2/INT<D<K)/2> 

J=P1 



PRINT 8Z,21:C2-H2+J,L6(1) 

FOR J=D1 TO 2TW2 STEP 2*Di 

PRINT 82,20: C2-W2+J, L6( 1 > , C2-W2+J, L6(2> 

IF C2-W2+J+D1 >C2+W2 THEN 4820 

PRINT 02, 20: C2-W2+J+D1 , L6(2) , C2-W2+J+D1 , L6< 1 ) 

NEXT J 

GO TO 4850 

D1=18/-D(K) 

J=D1 

PRINT 02,21: C2-W2, L6( 1 )+J 

FOR J=L6< 1 )+Dl TO L6(2> STEP 2*D1 

IF J>L6(2> THEN 4840 

PRINT 0Z, 20! C2-W2, J, C2+W2, J 

IF D1+J>L6(2) THEN 4840 

PRINT 02,20: C2+W2, D1 +J, C2-W2, Dl+J 

HEXT J 

NEXT I 

IF Z=32 THEN 4968 

IF B2(K)=1 OR B2(lO=2 THEN 4860 

U3=U3+0. 1 

HEXT U2 

IF K=>7 THEN 4896 

IF B2(K+1 )< >2 THE') 4890 

H8=H6+1 



Editor’s Note: The current version of “Data 
Graphing” being distributed by the 4050 Appli- 
cations Library requires that the following 
statements be changed: 



Change Statement . 
Change Statement- 



Change Statement . 
Add Statement - 
Add Statement - 
Add Statement - 
Add Statement ■ 
Add Statement - 
Add Statement ■ 



Add Statement- 



3250 VIEWPORT 20,120,20,90 
3260 WINDOW 20,90,20,90 
3280 FOR K=1 TO N1 
3285 GOSUB 18000 
-3290 IF 2=32 THEN 3321 
-3295 IF F*="N B THEN 3321 

3300 PRINT H J CHANGE PEN COLOR IF DESIRED, THEN PRESS CR"; 
3310 PRINT §Z: n GGGG"j 
3320 INPUT X* 

-3321 REM **% Mods for redrawing lines on plotter 
-3322 U3=0 

-3323 IF 2=32 THEN 3330 

-3324 REM Test for bar chart 

-3325 IF B2<K>=1 OR B2<K>=2 THEN 3330 

-3326 REM U2=Increnent to wove pen; V3=Counter for # Redraws 
-332? FOR U2=l TO 4 
3330 X5=0 
3340 Y5=0 
3350 M4=l 

3370 IF N4<K)=1 OR N4<K>=6 THEN 3430 

3380 GOSUB N4(K)-1 OF 9000,9100,9220,10500 

3430 FOR I=X1 TO X2 

3450 IF Y<I,KX-1.0E+386 THEN 4050 

3460 R=19.6+70*<Y<I,K>-L1>/<V-L1> 

3470 C=S3+S2*<I-X1> 

-3471 R=R+U3 

3490 IF D4<K)=7 THEN 4050 

3500 IF B2<K>=1 OR B2<K>=2 THEN 3640 



4800 PRINT 0Z,20:C2+W2, U9+D1+J, C2-W2, V9+D1+J 
4020 NEXT J 
4050 NEXT I 

Add Statement — 4051 IF 2=32 THEN 4060 

Add Statement 4052 IF B2<K)=1 OR B2<K)=2 THEN 4860 

Add Statement — 4053 U3=U3+0.1 
Add Statement — 4054 NEXT V2 

4060 IF K>5 THEN 4898 

4070 IF B2(K+1X>2 THEN 4098 

4080 N8=N8+1 

4090 GOSUB 8008 

4100 NEXT K 
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Determining Dimensions of an Unknown Array 




by Dick Browne 
Tektronix, Inc. 

Philadelphia, PA 

Did you ever dimension an array and 
then forget how large it was?Here is a 
way to find out without changing the 
contents of the array. Assuming A is the 
unknown array, write this program using 
some unused program steps: 



5908 for 1*1 to 10000 

5818 FOR J=1 TO 10000 
5020 IF A<I,J>*0 THEN 5030 
5038 NEXT J 
5848 NEXT I 



Running the program will give you the 
following error: 

DIMENSION-SUBSCRIPT ERROR IN 
LINE 5020 — MESSAGE NUMBER 10 



Enter J-l. The value displayed is the sec- 
ond dimension. Change step 5010 as fol- 
lows: 



5010 FOR J=1 TO 1 



Now run the program again. When the 
error message appears, enter 1-1. The 
number displayed will be the first dimen- 
sion. 

If the array only has one dimension, use 
the following program. The value of 1-1 
is the dimension. 



5008 FOR 1*1 to 10000 
5010 IF A(I>=0 THEN 5020 
5020 NEXT I 



Common Input Variable 

by Bryan Burma 
Tektronix, Inc. 

Kansas City, KS 

When writing a program with a lot of in- 
teractive input, it is a good idea to al- 
ways use the same input variable name 
and to use a string variable. Using a var- 
iable such as Q$ to denote an input 
variable or a query to the keyboard has 
several benefits: 



Data validity checking is much easier 
since the string variable can easily be 
checked for either alpha, numeric, or 
alphanumeric validity. After the val- 
idity checks have been performed, the 
common input variable can always be 
reassigned to the appropriate variable 
type. 

Using a common input variable, you 
can reduce the number of variable 
used in a program. 



Using an alpha variable (string) will 
aid in preventing program crashes. A 
string variable will accept any key- 
board input. If the data is not correct, 
the program can flag the operator. 

Editor’s Note: See the programming tip 
‘ ‘PRINT USING and Forms De- 
sign” in this issue, which discusses input error 
checking. 



Tape Index 

by Ron Robinder 
Tektronix, Inc. 

Beaverton, OR 

Following is the program I place on file 1 
on all my personal tapes. It lists the 
names of all programs on the tape quick- 
ly, then locates and reads in the one de- 
sired. 

As given, the program will read up to 
275 files in pages of 25 each. In practice, 
you seldom require more than two or 
three pages for most practical tapes. The 
first line in each program file must be a 
REM statement which gives the title of 
the file. Fifty characters starting after the 
space will be printed if a two, three, or 
four digit line number is used. If the first 
line is not a REM statement, the entire 
line will be printed. 



For non-program files, the program uses 
the header information to list the file 
type in place of the title. The only char- 
acters acceptable in position 9 of a head- 
er are: A, B, D, L, N, P or T. Any other 
character will cause an error message to 
be printed. 

The principle advantages of this program 
over using a TLIST program are: 

1. No need to modify the header and 
risk damaging it. 

2. On a 4051, the tape does not auto 
rewind at the end, greatly speeding lo- 
cation of files near the end of the 
tape. 

The output option sends the tape index 
to a plotter to make tape labels, or to a 
printer to list rapidly the contents. Note 
that a carriage return is needed in line 
460 to print the next page. 



1 REM INDEX FOR TAPE #1, DATA HANDLING 
4 RUN 168 
100 1NIT 

110 PRINT "LINPUT NUMBER FOR OUTPUT DEUICE (32-SCREEN) ! "J 
120 INPUT D 
130 I*=" ' 

148 DIM A*(50> 

158 FOR J»i TO 1 
160 FOR 10=1 TO 5 
170 PAGE BD: 

180 PRINT BD: "INDEX OF PROGRAMS ON TAPE." 

190 PRINT (?D: "FILE EXTENDED TITLECLINE 1)" 

200 FOR 1=1 TO 25 
205 PRINT 033,0:0,0,1 
210 FIND 1+5*00-1 > 

228 INPUT 033: I* 

225 PRINT 033,0:0,0,0 
227 FIHD I+25*< 10-1 > 

230 H*=SEG(I*,9,1> 

240 IF H*="A" THEN 280 

250 IF H*="B“ THEN 400 

260 IF H*="L" THEN 480 

270 IF Ht*“N" THEN 420 

280 H*=SEG(I*,17,1) 

290 IF H*-"P" THEN 350 

300 IF H*<)"T“ AND H*<)"D" THEN 330 

310 PRINT 0D! 1+25* 00-1), "DATA OR TEST FILE" 

320 GO TO 450 

330 PRINT BD: "ERROR IN FILE "J 1+25* 00-1) 

340 GO TO 458 
350 INPUT 033: A* 

360 A=P0S(A*, "REM ",1> 

370 A*=SEG(A*,A+4,LEN(A#>> 

380 PRIHT 0D: 1+25* 00-1), A* 

390 GO TO 450 

400 PRINT 8D: 1+25* 00-1), "BINARY FILE" 

410 GO TO 450 
420 H*=SEGO$,35, 6) 

430 H=UAL(H*> 

440 PRINT 0D! 1+25*00-1), “NEW FILE* LENGTH = "JHJ" BYTES" 
450 NEXT I 
460 INPUT T$ 

470 INPUT 10 

480 PRINT BD: 1+25* 00-1), "LAST FILE" 

490 NEXT J 

500 PRINT "INPUT FILE YOU WANT "J 

510 INPUT F 

520 IF F=0 THEN 550 

530 FIND F 

540 OLD 

550 END 
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PRINT USING and Forms Design 



by Dick Browne 
Tektronix, Inc. 

Philadelphia, PA 

The PRINT USING command is one of 
the fastest and most efficient ways to 
draw multiple symbols and forms. Here 
is a review of the proper use of this com- 
mand. 

The command: 



100 PRINT USING "P35(72""8 H “)""1""S"! 



prints a page full of 8’s. Let’s analyze 
the format. 

The “P” causes the screen to page. The 
“35” prints 35 lines, and the “72” prints 
72 symbols per line. Inside the quotation 
marks is the symbol to be printed. The 
next symbol to be printed is the HOME 
symbol (Control-T), which returns the 
cursor to the home position. Next the 
“S” suppresses the carriage return. 
Without the “S”, the cursor would move 
down to the second line. 



100 PRINT USING -P<72" , * ,,,, )/33< HB **""71T""**""/H72"-*"")’"1" , ‘S": 



Again, the “P” pages the screen. The 
contents of the first parenthesis draw 72 
*’son the first line. Next a CR/LF (/), 
moves the cursor to the next line before 
continuing. The contents of the next par- 
enthesis will be repeated 33 times. First 
two *’s will be printed; then the cursor 
will tab to space 71 and print two more 
*’s,then it generates a line feed. The con- 
tents of the last parenthesis prints the 
last line. The cursor then returns to the 
HOME position. 



! TECHNICIAN- JOE TECH A/P! 101 

! PRODUCT GROUP ! A/C! ACTUAL HRS! BILLED HRS ! TAT ! 08? ! PUF TOTAL 



!-T0 BACKSPACE. PRESS RETURN WITH NO ENTRY. TYPE 'END 1 AFTER LAST ENTRY.! 
! TO DELETE A LINE. ENTER 'DELETE* AND RETYPE INCORRECT LINE. ! 



The above form can be drawn with the 
following program: 

Tekniques 
Vol. 5 No. 4 



100 INIT 

110 0$-* JOE TECH* 

120 S*=*101* 

130 X=0 

140 IMAGE P2T» 1 1 A f 14T » FA* 46T r 5A» 52T >3A»3/ *T » 14A, 17T »3A» S 

150 PRINT USING 140 i * TECHNICIAN- *? 0* »* A/P J * * PRODUCT GROUP" »* A/C * 

140 IMAGE 2T f 1 1 A f 13T » 12A » 26T r 3 A f30T ?3A ? 34T r 9 A 

170 PRINT USING 160 \ 'ACTUAL HRS* » 1 BILLED HOURS* r * TAT *»* 08? *,* PWF TOTAL* 
180 PRINT USING * * * T * * 4/71 < * * - * * > / * * KK * * 30 <16T * * i * * /) * \t * * 2/ * 5 
190 PRINT USING * 30 < 20T * * ! * *31T * * ! * * 44T * * I * * 48T * * \ 1 *52T * * ! * * / > S* 1 
200 PRINT USING *FAS*5*TD BACKSPACE! PRESS RETURN WITH NO • 

210 PRINT 'ENTRY. TYPE * * END* " AFTER LAST ENTRY,* 

220 PRINT USING 'FASM'TQ DELETE A LINE » ENTER * "DELETE* * AND * 

230 PRINT USING - FA* *1 * * 4/ * \ * RETYPE INCORRECT LINE..* 

240 X=X+1 
250 INPUT A* 

350 PRINT USING " 17TAS * 5 *K* 

340 INPUT B % 

450 PRINT USING ■21TAS*!*K* 

460 INPUT C$ 

550 PRINT USING *32TAS*{'K" 

560 INPUT D* 

650 PRINT USING *45TAS* l *K" 

660 INPUT E* 

750 PRINT USING *49TAS*!*K* 

760 INPUT F* . 

850 PRINT USING *53TAS*5*K* 

860 INPUT G* 

950 IF X»>28 THEN 130 
960 GO TO 240 



would be 0, or some other number be- 
tween 1 and 15. To determine if the cate- 
gory is correct, we’ll add 4 to P and see 
if the resulting number divided by 5 is a 
whole number: 

280 P=<P+4>/5 

290 IF F'=INT <P) AND POO THEN 350 
300 PRINT 'GGINCORRECT CATEGORY" 

310 X=X+1 
320 GO TO 250 

B$ is the activity code, (line 360). If you 
want to make sure it is a number you 
could add: 



Steps 140-170 position and print the 
words. Step 180 homes the cursor, line 
feeds down four spaces, prints 71 
dashes, carriage returns, then prints a 
column of 30 vertical lines, tabbed in 16 
spaces. 

The cursor is then returned to the 
HOME position and line fed down two 
lines to prepare for the next line. 

Line 190 prints five vertical columns of 
30 vertical lines, tabbed in 20, 31, 44, 48, 
and 52 spaces, respectively. After the 
last (30th) line is printed, there would ac- 
tually be two line feeds, one included in 
the command, and the other which is au- 
tomatically generated at the end of a 
print command unless suppressed. The 
“S” suppresses the extra carriage re- 
turn. 

Lines 200-230 print the instructions at 
the bottom of the form. Line 230, after 
finishing the printing, homes the cursor 
and line feeds four lines to place the cur- 
sor in position for the first input. 

Line 240 is a line counter. After every 28 
lines, the form is redrawn. 

String variables are used instead of nu- 
meric variables in the input command to 
allow checking for legitimate input, For 
instance, let’s say you want to limit the 
entries in the product group column to 
three categories: “car,” “truck,” and 
“bus.” Elsewhere in the program you 
could define a string: 

H*="CAR TRUCKBUS " 

Then when A$ is en- 
tered (line 250), the next step would be: 



260 IF LEN ( A$ ) <3 THEN 1120 
270 P=P0S<H*»A*»1> 

The routine starting at line 1120 would 
ring a bell, increment the line counter 
and return you to the first column: 



1120 PRINT *GG " » 
1130 X=X+1 
1140 GO TO 950 



If the correct category were entered, P 
would be equal to 1, 6, or 11. If not, it 



370 IF B*=" OR B$< " 0 " OR B*>"9" THEN 1120 ’ 



Using similar techniques, you can check 
for appropriate entries in any column, 
whether the entry should be a number, a 
letter, one or two particular letters, or 
whatever. 



If fewer columns are required, a form 
can be drawn with instructions down the 
right side: 



TURNAROUND TIME REPORT FOR A/P 101 



! CATEGORY ! CITY ! DAYS S PARTS OTY OR *N‘ ! 

( r. + + — 4- S — ENTER CATEGORIES ! 

! . ! ! ! AS FOLLOWS! ! 

i I ! i W = WARRANTY ! 

!' i ! C = CONTRACT 

! ! ! ! M = MEDICAL ! 

! ! ! ! F = FDI ! 

i ! ! ! 8 = CODE 08'S ! 

! ! ! ! A = ALL OTHERS ! 

! ! ! i ENTER THE NO. OF INSTS . THAT ! 

! ! ! ! PARTS WERE ORDERED FOR OR ! 

ill! 'N' FOR 'NO' IN THE PARTS ! 

! ! ! ! ORDERED COLUMN. ! 

! 1 ! ! IF YOU HEAR THE BELL RING. ! 

i i ! ! AN INAPPROPRIATE ENTRY WAS 1 

! ! ! ! MADE AND THE LINE WILL BE ! 

! ! i ! IGNORED. START AGAIN AT THE! 

! ! ! ! BEGINNING OF THE LINE. ! 

! i ! i . ENTER 'O' TO END PROGRAM. i 



This form is generated using the follow- 
ing program: 



100 


INIT 






120 


H*= ' 101 " 




130 


U=0 






140 


IMAGE 


F'lOTFAFA 1 


150 


IMAGE 


2/T8A12T3A17T4A25T16A 


160 


IMAGE 


43TFA 




170 


PRINT 


USING 


140! 'TURN AROUND TIME REPORT FOR A/P i '!H* 


180 


PRINT 


USING 


150! 'CATEGORY *.'QTY', 'PAYS '.‘PARTS QTY OR "N*" 


190 


PRINT 


USING 


160! "ENTER CATEGORIES' 


200 


PRINT 


USING 


160! 'AS FOLLOWS!' 


210 


PRINT 


USING 


160." JW = WARRANTY' 


220 


PRINT 


USING 


160! 'C = CONTRACTS’ 


230 


PRINT 


USING 


160! 'M = MEDICAL' 


240 


PRINT 


USING 


160! 'F = FDI' 


250 


PRINT 


USING 


160! '8 = CODE 08' S' 


260 


PRINT 


USING 


160! 'A = ALL OTHERS' 


270 


PRINT 


USING 


160! " JENTER THE NO, OF INSTS. THAT* 


280 


PRINT 


USING 


160! 'PARTS WERE ORDERED FOR OR" 


290 


PRINT 


USING 


160." "N" FOR "NO" IN THE PARTS' 


300 


PRINT 


USING 


160! 'ORDERED COLUMN.' 


310 


PRINT 


USING 


160! 'JIF YOU HEAR THE BELL RING,' 


320 


PRINT 


USING 


160! “AN INAPPROPRIATE ENTRY WAS' 


330 


PRINT 


USING 


160! 'MADE AND THE LINE WILL BE' 


340 


PRINT 


USING 


160! 'IGNORED. START AGAIN AT THE' 


350 


PRINT 


USING 


160! 'BEGINNING OF THE LINE.' 


360 


PRINT 


USING 


160! 'JENTER "0" TO END PROGRAM.* 


370 


PRINT 


USING 


*"I"4/40<"-")"I"2/'{ 


380 


PRINT 


USING 


■30<11T" ! "16T" i "24T" 1 "/> ”1 "4/' ! 


390 


IF U=>28 THEN 130 


400 


U=U+1 






410 


INPUT 


A* 




540 


PRINT 


USING 


* 12TAS 1 ! "K* 


550 


INPUT 


x$ 




610 


PRINT 


USING 


‘ 17TAS* ! *K" 


620 


INPUT 


D* 




700 


PRINT 


USING 


* 25TAS' ! *K' 


710 


INPUT 


P* 




860 


GO TO 


430 





The main difference between this pro- 
gram and the previous one is the IM- 
AGE 43TFA statement. It can be used 



repeatedly to print a column of any 
length starting at a point other than the 
left margin. Changing the number before 
the “T” changes the starting point of the 
column. JS) 
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4050 Series Applications Library Programs 



Ordering 

Programs included in the Applications Library prior to Septem- 
ber 1981 are packaged and nomenclated by function. Those pro- 
grams accepted into the Library after September 1981 are 
packaged and nomenclated with the Volume and Number of the 
corresponding issue of TEKniques in which the package was an- 
nounced. 



Each package includes the source code on tape or disk (T=tape ; D— 
disk ) together with the supporting documentation; listings 
are not included in the documentation. Documentation may be 
purchased separately. 

The 4050 Series Applications Library Programs catalog (Septem- 
ber 1981) contains the abstracts describing the programs in each 
package along with representative output in most cases. The ca- 
talog part number is 062-6343-00. 



To receive a copy of the catalog, or to order a package, contact 
your local Tektronix field office. The field office has the current 
prices. 



Package Title 

Business Aids T1 

Business Aids T2 

CAD T1 

CAD D1 

Character Generator T1 . 
Education/Research T1 . 
Education/Research T2 . 
Electrical Engineering T1 

Graphing T1 

Graphing T2 

Graphing T3 

Graphing D1 

Graphing D2 



Package Part # 
.. 062-5987-01 
... 062-5988-01 
... 062-5976-01 
... 062-5977-01 
... 062-5951-01 
... 062-5982-01 
... 062-5983-01 
... 062-5978-01 
... 062-5964-01 
... 062-5965-01 
... 062-5966-01 
... 062-5967-01 
... 062-5968-01 



Interfacing T1 062-5984-01 

Mapping T1 062-5980-01 

Mechanical Engineering 062-5979-01 

Programming Aids T1 062-5971-01 

Programming Aids T2 062-5972-01 

Project Aids T1 . 062-5985-01 

Project Aids D1 062-5986-01 

Recreational Plots T1 062-5989-01 

Slidemaker T1 062-5962-01 

Slidemaker D1 062-5963-01 

Text Processing T1 062-5969-01 

Text Processing D1 062-5970-01 

Utilities T1 062-5974-01 

Utilities D1 062-5975-01 

Tekniques Vol. 5 No. 4T1 062-5981-01 



The program material contained herein is supplied without war- 
ranty of any kind, and without any representation regarding 
quality, performance or suitability. TEKTRONIX specifically dis- 
claims any implied warranties of merchantability or fitness for a 
particular purpose. Software support is TEKTRONIX Category 
C: Software is provided on an “as is ” basis. 

Program Contributions 

Contribute one program to the Applications Library and receive 
the package of your choice in exchange. Send in the membership 
card from your 4050 Series Graphic System Reference Manual to 
get the details. Or call us at (503) 685-3618. 

Outside U.S. 

Program contributions or orders outside the United States must 
be processed through the local Tektronix sales office or sent to 
one of the Libraries serving your area. See Library Addresses 
section ofTEKniques. 



TEKniques Vol. 5 No. 4 T1 

TEKniques Vol. 5 No. 4 T1 tape con- 
sists of 67 programs: 10 programming aid 
routines, four 3-D graphing programs, 
five 2-D graphing programs, one index 
program for literature references, and 47 
programs using the 4050 as a controller 
for TM5000 instruments. 

The programming aid routines maintain a 
tape index, label file headers, cross 
reference ASCII programs and include 



code for a variety of routines useful in 
programs. 

The graphing programs are the entries in 
the Graphing Contest sponsored by 
TEKniques in the Spring of 1981. 

The Reference Index program creates 
and maintains a list of literature refer- 
ences. It must be transferred to a sepa- 
rate dedicated tape. 

As a supplement to the GPIB Program- 
ming Guide (see related article in this 
issue of TEKniques), 47 4050/TM5000 in- 



strument controller examples and utilities 
have been included in this tape, along 
with their index. Having the machine 
code available through the Applications 
Library saves users from keying in the 
code printed in the Guide. These pro- 
grams must be transferred to a tape 
where they occupy the first 48 files. 

The following individual abstracts de- 
scribe each program’s function. 
Documentation for programs affected 
contain complete instructions for accom- 
plishing file transfers. 



Program 1 

Title: TAPEMENU 
Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 16K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
1 Binary Data 
Statements: 188 



and display a file of the names and file 
numbers of all ASCII Program files on 
tape. When a program is selected, TA- 
PEMENU will load and run it. 

You may also number and label a tape 
cartridge using TAPEMENU. The file- 
names are previously created with 
FMARKER (Program 4 below). 

Storage capacity of file names is current- 
ly 100, but may be easily changed. 



T B A S I C PROGRAM LIBRARY OF 
- TEKTRONIX APPLICATIONS LIBRARY PROGRAMS ■ 
09-22-81 

Tape CARTRIDGE: 4U0L3N04T1 9 Device #33 



1- TAPEMENU 2- ReadNote 3- HritNote 4- FHarker 3- LHeader 

6- PHeadcr 7- Stripper 8- CroisRef 9- TapcDupc 18- ConpSort 

11- TAPEME:S 12- ReadNoiS 13- WritNoJS 14- FMarke:S 15- LHeade:S 

IS- PHeadeiS 17- StrlppJS 18- Cro*iR:S 19- TapeDulS 28- ConpSoiS 

21- TAPEMEIR 22- ReadNoiR 23- HritNolR 24- FMarkelR 23- LHeadelR 

26- PHeadelR 27- StrippiR 28- Cro*fR:R 29- TapeDuiR 30- ConpSolR 

31- Z*F<X,Y> 32- StereoPt 33- H/WoHdnL 34- PlotThrD 35- Append 

36- Append '37- PipeChrt 38- Contour* 39- Hierarcl 48- Nonlnear 

41- Uertical 42- Reflndex 

Input 'PROGRAM' Option > 



TAPEMENU will establish, maintain 
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Program 2 

Title: READNOTE 
Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
Files: 1 ASCII Program 
Statements: 37 



READNOTE is a short utility routine 
that displays a data file created by 
WRITNOTE (see abstract below). 

However, the core of this routine and its 
methods may be used as a subroutine 
within a complex program, allowing it to 
display instructions that would be prohi- 
bitively large to code into the program. 



GENERAL PROGRAM NOTES: 

1. TAPENENU - 

This progran will establish, Maintain, and display a binary data- 
file containing the paries and file nuMbers of all ASCII encoded 
prograns contained on the tape. (The nanes are those previously 
created with the 'FMARKER' utility.) Upon selecting a progran by its 
relative display-nuiiber, the progran will load-and-run it. 

(Press 'RETURN' to Continue!) 



Program 3 

Title: WRITNOTE 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 37 



This is a quick utility which creates and 
edits notes in a data file. It is line orient- 
ed. 



The program will automatically MARK a 
file large enough for the newly created or 
modified text and store it. 



Once the notes are created and stored, 
they may be modified a line at a time. 
Modifications include: 

Leaving a line as is 
Changing a line 
Inserting a line 
Deleting a line 



GENERAL PROGRP 



LINE-EDIT MODE: 

t- Modify, 2- Insert, 3- Delete, 4- End > 

This progran will establish, Maintain, and display a binary data- 
LINE-EDIT MODE: 

l- Modify, 2- Insert, 3- Delete, 4- End > 
file containing the naMcs and file nunbars of all ASCII encoded 
LINE-EDIT MODE! 

1- Modify, 2- Insert, 3- Delete, 4- End >1 
Enter LINE (Start LAST line uith 'Control -C'> 

ile containing the nanes and file nunbers of all ASCII 
(Is this CORRECT!) yes 

prograns contained on the tape. (The nanes are those previously 
LINE-EDIT MODE! 

1- Modify, 2- Insert, 3- Delete, 4- End > 



Program 4 

Title: FMARKER 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
■ Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 255 

Use this routine to mark a tape file head- 
er with an 8 character name and also a 
30 character Remarks-Extender. 



A listing facility included in this routine 
will produce an index of the tape files, 
and compute and display the file space 
— used and free, in both a byte and 
block format, with their respective per- 
centages. (This is for a standard DC300A 
cartridge only!) 



TEKTRONIX APPLICATIONS LIBRARY PROGRAMS 



ASCII PROGRAM 
BINARY DATA 

PROGRAM 

PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
DATA 
PROGRAM 



PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 



TAPEMENU 40 
tMcnuDat 5 
RaadNota € 
WritNote 12 
FMarkcr 33 
LHeadcr 12 
PHcadcr 6 
Stripper 36 
CrossRef 32 
TapeDupe 43 
ConpSort 32 
PROGNOTE 15 
TAPEMElS 15 
ReadNolS 4 
HrltNolS 8 
FMarkelS 22 
LH«adc:S IB 
PHcadc: S 6 
StrippiS 19 
CrossRiS 26 
TapeDuiS 32 
ConpSo: S 17 
TAPEMEiR 3 
RtadNo: R 3 
HritNosR 3 



ProgranFile Menu with Chaining 
ProgranFile Nunbers-t-Nanes 
ASCII Data-Note Reading Routin 
ASCII Data-Note Writing Routin 
Tape-File Header Marker-Extndr 
File-Header Library SubRoutine 
Standardized Progran Header 
Progran 'REMARK'* Stripper 
Cross-Reference ASCII Prograns 
4924 Tapc-to-Tape Copy Utility 
Sanple Bubl-Sort t Shel-Sort 
General Library-Prograns Notes 
STRP: ProgranFile Menu with Ch 
STRP: ASCII Data-Note Reading 
STRP! ASCII Data-Note Writing 
STRP: Tape-File Header Marker- 
STRP! File-Header Library SubR 
STRP: Standardized Progran Hea 
STRP: Progran 'REMARK'S Stripp 
STRP: Cross-Reference ASCII Pr 
STRP: 4924 Tape-to-Tape Copy U 
STRP! Sanple Bubl-Sort t, Shel- 
XREF! ProgranFile Menu with Ch 
XREF! ASCII Data-Note Reading 
XREF! ASCII Data-Note Writing 



In addition, the tape cartridge may be 
given a 10 character alpha-numeric iden- 
tifier and a 48 character name. 



Program 5 

Title: LHEADER 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
Files: 1 ASCII Program 
Statements: 77 



The FMARKER utility writes an eight 
character marker beginning at column 25 
of the file header. Unfortunately when- 
ever you write/save data to a file, the 
4051 writes over columns 25 and 26 with 
spaces. 

You may alleviate this problem by incor- 
porating the two routines contained in 
this file into your write/save programs. 



Program 6 

Title: PHEADER 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
Files: 1 ASCII Program 
Statements: 38 



This file contains an example of how the 
tape-cartridge identifer created with 
FMARKER might be used as part of the 
BASIC program identifier line. 
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Program 7 

Title: STRIPPER 



The stripped program is saved and la- 
beled as a separate ASCII Program file. 
The original program remains intact. 



Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 32K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 260 

This program strips the ‘REMarks’ from 
an ASCII Program file. One of three 
stripping modes is available: 

1. Delete REMark commentary 

2. Delete REMark line 

3. Delete REMark line and RENumber 
the following line 



< INTRINSIC INITIALIZATION t, GLOSSARY " 



tee ren ■■ 
ue in i t 

120 REN Nuncric Uarlablcs/Conetants 

122 REN D - Device-Drive Nunbcr (2- 4924, 33- 4031 > 
124 LET D-33 

126 REN F » Fil« Nunbcr 
128 LET F-2 

130 REM P - Progran Index Nunbcr 
132 LET P-0 

134 REN T ■ Total Nunbcr of Program 
136 LET T-100 

140 REN 

142 REN C* - Ta— . . 

144 LET C$-CHR( 13) 

146 REN D$ - Date of Latcit File Activity 

148 DIN D»<8) 

149 LET D*-" - 

150 REN E* - Tape-File Header-Extender 
152 DIN E*<210> 

134 REN F* ■ Conposite File-Nunber-l-Nane String 
156 DIM F*<T*11) 

158 REN H* - Tape-File Header 
160 DIN H*(42) 

162 REN M$ - Tape-File Header-Marker 
164 DIN M*<8> 

166 REN N» - Tape-File Nunber 
168 DIN N*<3) 

170 REN P* - Progran-File CNunber-t-lNane 
172 DIM P*<11) 

174 REN Qt - Tape-Cartridge Identifier 

176 DIN Q$( 10) 

177 LET QI-" " 

178 REM R* - Tape-Cartridge None 
180 DIN R*<48) 



190 INIT 
128 D-33 
126 F=2 

130 p-e 

134 T-100 
140 C4-CHRC13) 
146 DIM D*<8> 

149 D4-" ■ 

150 DIM E*C210) 
154 DIM F$a*ll> 
158 DIN H»<42) 
162 DIN M»<6) 

166 DIN N*<3> 

170 DIN P»<11> 
174 DIM Q*<10> 

177 0*«" " 

178 DIN R8<48) 



Program 8 

Title: CROSSREF 
Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 32K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 404 

This program will sequentially index a 
cross-referenced ASCII program. The 
cross-referencing may include six or 13 
commands: 



or all of the above plus 

DELETE, LIST, SAVE, APPEND, 
RENUMBER, CALL and RUN 

The index is saved and labeled as an AS- 
CII program or REMark statements. 
This file may be loaded later for display, 
or appended to the source file from 
which it is derived. 




OF, GO TO, GOSUB, THEN, RE- 
STORE, & USING only 



Program 9 

Title: TAPED DUPE . 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement : 1 6K 
Peripherals: 4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 320 

This program transfers any type of pro- 
gram or data files from the 4050 internal 
tape drive to the 4924 tape drive. The 
duplicated file will retain the original 
header and extender. 

The program will automatically MARK 
the new files, if desired. 
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Program 10 

Title: COMPSORT 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 16K 
Files: 1 ASCII Program 
Statements: 172 

This sample program generates a list of 
random and ordered numbers. These 
numbers are then sorted by a Bubble- 
Sort routine which uses a floating win- 
dow; followed by a Shell-Metzner Sort 
for comparison. Both routines may be 
used, as is, with only the array name and 
element variables changed to ones appro- 
priate to your program. 




Program 11 

Title: General Function Z=F(X,Y) 
Plot 

Author: Dony Robert 

Brussels, Belgium 
Memory Requirement: 32K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 452 

This program draws two variable func- 
tions, z=f(x,y), with hidden lines re- 
moved. The draw is made in a rectangu- 
lar region so that X1^X^X2 and 
Y1^Y^Y2. 

The function may be drawn on a block 
representing axes parallel to the three re- 
al axes X,Y,Z as well as the study inter- 
vals. 




Program 12 

Title: Stereo Surface 
Author: Dr. P.R. Tregenza 

Department of Architecture 
University of Nottingham 
Nottingham, England 
Memory Requirement: 4052/54 32K 
Peripherals: Optional-4662/4663 Plotter 



The Bubble-Window sort is my trans- 
cription of a North Star BASIC routine 
written by Paul T. Brady, and published 
in the September 1980 issue of “BYTE” 
magazine. 

The Shell-Metzner sort is my transcrip- 
tion of a routine originally transcribed 
into North Star Basic by Steven Fisher, 
La Mesa, CA, and made available by 
him to the San Diego North Star User 
Group Library. 

The Bubble-Window routine is designed 
specifically to sort lists with only a few 
entries out of order, or to check a list 
quickly to ensure that all entries are or- 
dered. 



The user writes the function to be stu- 
died, for instance in the form: 

2500 Z= — 8*EXP(- X*X— Y* Y)*(X+ Y) 

As soon as the user types RUN 
(RETURN), the program asks the inputs 
necessary to do the calculations and 
prompts for the following options. 

1. Any seeing angle. The eye always 
looks at the origin of the axis. The az- 
imuth angle 01 can vary from (F to 
180°, and from (F to -180°. The dip 
angle 02 can vary from (F to.9(F and 
from (F to -9(F. 

2. The number of slices cutting the sur- 
face. 

3. The number of joints on each slice. 

4. The eventual file number to record 
the drawing in G.D.U.s that allows a 
fast redraw of the function later. 

5. The true scale or a uniform scale. 

6. One or two directions of cutting. 



Files: 1 ASCII Program 
Statements: 200 

An equation of the form Z=F(X,Y) is 
plotted as a surface drawn in perspective 
with optional plotter output as a stereo 
pair. 

The equation is contained in a subroutine 
which is listed initially on the screen. 

The user may change the perspective 
viewpoint and specify the number of 
lines drawn. Hidden lines are removed 
from the image. 



The Shell-Metzner technique, on the oth- 
er hand, is reasonably efficient when 
used with moderate amounts of random 
sequential data need to be sorted. 

Either routine should be easy to adapt to 
specific sorting configurations in a vari- 
ety of programming languages, or dia- 
lects. 



7. The drawing of the function with or 
without the axis block. 




Projection of the eye on the XY 
plane 



Functions must be continuous and injec- 
tive. 

Surfaces can be drawn from underneath. 
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Program 13 

Title: 3-D Plot w/wo Hidden Lines 

Author: Lothar Tschimpke 
Munich, Germany 
Memory Requirement: 16K 
Peripherals: Optional-4662/4663 Plotter 
Files: 1 ASCII Program 
Statements: 272 

This program plots a net or lines of a 
mathematical or programmable function 
of two variables, e.g., Z=F(X,Y). The 
functions can be viewed under any an- 
gle. 



Program 14 

Title: PLOT3D 

Author: Robert Kennedy 
Elliot Noma 
Philadelphia, PA 
Memory Requirement: 16K 
Peripherals: Optional-4662 Plotter 
Files: 3 ASCII Program 
Statements: 226 

PLOT3D is a plotting routine which is to 
be run as an appended subroutine to a 
main program. 

PLOT3D receives vertical Z values for 
points on a line through the X-Y plane. 
The X,Y,Z coordinates for these points 
are rotated around the Z-axis and then 




Program 15 

Title: Pipechart 

Author: Steven Salisbury 

Whirlpool Corporation 
Benton Harbor, MI 
Memory Requirement: 16K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 160 

This program quickly provides a three 
dimensional bar chart with shading. Up 



When using the Hidden-Line Algorithm, 
the Z-axis has to be vertical. 

The program automatically begins draw- 
ing in front and generates a pattern, 
which gives the information, whether 
next line can be drawn or not. 




around the X-axis. PLOT 3D then plots 
the line segments joining the rotated 
points, provided the segment appears 
above the hidden line horizon stored as a 
mask. 

The mask is an array which spans the 
screen’s horizontal axis containing the 
values of the maximum vertical values 
(in screen coordinates) for the particular 
horizontal value. The plotted point is 
checked against the mask by comparing 
vertical values for the point and the 
mask given by the horizontal values. 

Once plotted or attempted to plot, the 
mask values for the horizontal values af- 
fected is updated. 



to 12 bars may be displayed on the 4050 
screen or the 4662 Plotter. 

Data entered from the keyboard is dis- 
played in the form of N cylindrical bars, 
where N is the number of bars selected 
by the user. The bars are drawn on a 
stand, and a title block is placed above 
the bars for a one line, 52 character title. 
Due to the intensity of the shading, the 
program does not shade bars when draw- 
ing on the plotter. 

The Y-axis minimum is always set to ze- 
ro. Only positive values may be plotted. 

Once the data is entered, the width of 
the bars, maximum Y- value and plotting 
device may be changed through the 
User-Definable Keys and the plot re- 
drawn. 



After the line is plotted, control returns 
to the calling program and PLOT3D 
waits for the next line of Z values. 



i 
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Program 16 

Title: Contour Plots 

Author: Jerry W. Anderson 
Bartlesville, OK 
Memory Requirement: 8K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 149 

This program plots response surfaces (or 
contour plots) in two dimensions. It uses 
the 3-dimensional full- quadratic model 
(or subsets thereof) as a function: 



where Z, X, Y are variables and YO, A, 
B, AB, ASC,&BSQ are constants which 
may be known or determined by regres- 
sion. Very high resolution plots may be 
generated. The user may determine the 
number of contours desired and their 
value. 

In effect, we have displayed a three-di- 
mensional data space in two dimensions, 
much as a topographical map displays 
geographical features. 



Z = YO + A*X + B*Y + (AB)*X*Y + 
(ASQ)*Xt2 + (BSQ)*Y|2 



EXAMPLE 





Program 17 

Title: Hierarchal Clustering 

Author: Jerry W. Anderson 
Bartlesville, OK 
Memory Requirement: 32K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 244 

Consider a data set consisting of N vec- 
tors (or data points) each in L dimen- 
sions. 

A sequence of classifications in which 
larger clusters (or groupings) are ob- 
tained through a merger of smaller ones 
is called a nested or hierarchal classifica- 
tion. Basically, it shows the relationship 
between each data point and every other 
point in the data set by forming a tree or 
dendograph (similar to a family tree). 
The similarity of two data points is in- 
versely related to the distance between 
them along the branches of the tree. 

There are basically three types of hierar- 
chal clustering: single linkage, average 
linkage, and complete linkage. Among 
x these, single linkage is the most simple. 
It begins by finding the link between the 
two closest data points. The succeeding 
stages consist of finding the shortest re- 
maining link which directly joins together 



data points not already joined indirectly 
through a chain of links or branches. In 
essence, it searches through the distance 
matrix seeking the shortest distance that 
will contribute to further linkage or 
branching of the clusters. 

Data may be entered from the keyboard 
or reside on a data file. 

Example: Eleven measurements were 
made on each of 8 products. Products B 
and Y were actually different lots of the 
same product, as were I & J, L & M, 
and C & E. We desire to know some- 
thing about the relative similarities and 
differences among there eight products. 
The data matrix is as follows : 

We may conclude that I & J are the 
most similar products made, followed by 
L & M, C & E, then B & Y. The group- 
ing into pairs was as expected. (The 
smaller the distance with which two 
products “join up,” the greater the simi- 
larity.) We may then conclude that 



among all pairs, pair B & Y and pair I & 
J are most similar. We then see that the 
group B, Y, I, J, L, & M are more simi- 
lar among themselves than among the 
pair of C & E. 



DISTANCE > 
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42 
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Program 18 

Title: Nonlinear Mapping 

Author: Jerry W. Anderson 
Bartlesville, OK 
Memory Requirement: 32K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 244 

Nonlinear mapping reduces the dimen- 
sions of a data set (i.e., N vectors with 
L dimensions) to one of lower dimen- 
sions, usually to two so a cross plot may 
be used to observe the groups (or clus- 
tering) of the data units. The mapping 
preserves the data structure by obtaining 
N points in lower-dimensional space so 
their interpoint distances approximate 
the corresponding interpoint distances in 
L space. In other words, we seek a set 
of N two-dimensional vectors whose dis- 
tance matrix (N x N) is very near the 
distance matrix (N x N) of the original 
data set, i.e., N vectors in L dimensions. 

Designate the N vectors in L- space by 
X i? i = 1, . . ., N. Designate the N vec- 
tors in d-space (where d = 2 usually) by 
Y i5 i= 1, . . ., N. Let the distance (ac- 
cording to any desired distance metric) 
between X t and Xj in L-space be defined 
by dy* = dist (X i? Xj). Similarly, let the 
distance between the corresponding vec- 
tors Yi and Yj in d-space be defined by 
dy = dist (Yi, Yj). 



We shall choose starting values for the Y 
values in d-space. Using these starting 
values, we shall calculate the d-space 
distance, dy, from which we define an 
error E. This error tells us how well the 
present configuration of N points in d- 
space fits the N points in L-space: 

N 

L_ £ {d u *-dij} 2 

E = £{d u *}i<j d u * 

The next step in this iterative algorithm 
is to adjust the Y variables so as to de- 
crease the error E. A steepest descent 
procedure is used in order to minimize 
the error. 

The data matrix must be stored rowwise 
on a previously-created file. 

Considering the same data used in Pro- 
gram 17, use nonlinear mapping as a data 
reduction technique to reduce the data 
set from (8,11) to (8,2) while preserving 
interpoint distances as much as possible, 
and then crossplot the two resulting col- 
umns. Closeness on the crossplot indi- 
cates relative similarity. 

Products B & Y are very similar, as are 
C & E, I & J and L & M. However, the 
pair B & Y is relatively dissimilar to the 
pair C & E. The mapping error of .014 is 
good. 



MAPPING ERROR- 0.0142225642916 # ITERATIONS- 40 ALPHA- 0.4 
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Program 19 

Title: Vertical Plot 

Author: Jerry W. Anderson 
Bartlesville, OK 
Memory Requirement: 8K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 137 

This program graphically presents on one 
page a data set consisting of M rows in 
N dimensions. Each of the M observa- 
tions is represented by a 1-character 
code, which is plotted on each of N 
vertical scales across the page. 

A typical use of the program would be in 
an examination of M products, each with 
N measurements or properties (missing 
values are allowed). Relative product 
differences, with respect to each of the 
N measurements, are easily observed on 
the scales. Product and measurement la- 
beling is allowed. 
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Thus, we have depicted in two dimen- 
sions an N dimensional space. We have 
consolidated many plots on one page. 
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Program 20 

Title: Reference Index 
Author: F.G.G. Voigts 
1 National Physical Research Lab- 

^ oratory 

Pretoria, South Africa 
Memory Requirement: 32K 
Files: 1 ASCII Program 

Requires dedicated tape 
Statements: 385 

This program creates, stores on tape, 
updates and lists an index of literature 
references. The following data may be 
stored: 

Author 

Journal 

Volume 

Date 

Page 

Status (or type) Symbol 
Title 



The minimum information required is au- 
thor, year of publication and the status 
symbol. The rest is optional and the 
fields could be used for other informa- 
tion. 

The program assigns a code to each 
reference, comprised of the first three 
letters of the author’s surname, the year 
of publication and another letter to dis- 
tinguish between otherwise equal combi- 
nations. The references are arranged al- 
phabetically in 26 data files according to 
these codes. New references are sorted 
and inserted in the appropriate file. 
Existing references within a file may be 
deleted or changed. 



C0U78AC Cougar i J. Daniel & Datanation 
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24. 9(Sep 78)116-123 
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Hug i Richard i. Pr«s* Hint-Micro Syste XIII.3CMay 80)128-138 
DESIGNING TRANSPORTABLE SOFTWARE 

Ivanctvich) John M ' Ergonomics 24.5<May 81)351-363 

JOB DIFFICULTY DIMENSIONS 



Songcoi David t, at opaccrun 
HON COMPUTERS TALK TO THE BLIND 



17. 5<May 80)34-38 



Spanioli 0. computer Nctuor 

MODELLING OF LOCAL COMPUTER NETWORKS 



Computer Netuork (1979)315-326 



Program 21 

Title: 4 0 5 0 /TM 5 0 0 0 GPIB 
Routines 

Authors: Jim Kimball 

Barbara Malin 
Steve Peterson 
Tektronix, Inc. 

Beaverton, OR 
Memory Requirement: 8K 
Peripherals: TM5000 Mainframe and 
Plug-ins 

Files: 48 

Statements: 2,498 
Requires dedicated tape 

These 47 routines, following a directory 
on file 1, match listings in the GPIB Pro- 
gramming Guide (available separately un- 
der part number 070-3985-00). They are 
provided on this tape to save the user 
the task of keying in examples from the 
listings printed in the Guide. 



The GPIB Programming Guide aids the 
users of 4050 Desktop Computers and 
TEKTRONIX TM5000 series instru- 
ments in making the software connec- 
tion. The Guide introduces the 4050 as a 
controller for TM5000 instruments, with 
programming information specific to in- 
strument control. Major topics are: 

GPIB Input/Output 
Interrupt handling 
Interrupt handling statements 
Utility routines 

4052/GPIB send and receive program 



TM5000 series instruments specifically 
covered in this Guide include: 

DC5009 and DC5010 — Programm- 
able Universal Counter/Timers 
DM5010 — Programmable Digital 
Multimeter 

FG5010 — Programmable Function 
Generator 

PS5010 — Programmable Power Sup- 
ply 



Corrections to New Packages Documentation Correction 



As happens to any new product, we are 
findng some errors crept into some of 
the documentation or programs for the 
new 4050 Applications Library packages. 
If these errors impact the use of a pro- 
gram, they will be published in TEK- 
niques as they are uncovered. If they are 
“typos” or cosmetic problems, they will 
be corrected in the next printing of the 
affected documentation or duplication of 
the master tape/disk, but won’t be re- 
ported in this column. 
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Title 

TEXT PROCESSING D1 
Part Number 
062-5970-01 
Program Title 
$Edit.Dos/$Format.Dos 
Page Number 
88 
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Original Copy 
Step 3 . 

COPY “$FORMAT.DOS”,OTO“$#”,1 
COPY “$EDIT.DOS”,OTO“$# ”,1 

COPY “EDIT#”,0TO“@#”,l 
COPY “@TEXT#”,0TO“@# ,1 



Change 

Insert @ before EDIT on third line so 
it will read: 

COPY “@EDIT#”,0TO“@#,l ^ 







4050 Series Applications Libraries 



Africa, Europe, Middle East 

Contact local sales office 

Australia 

4050 Series Applications Library 
Tektronix Australia Pty. Limited 
Sydney 

80 Waterloo Road 
North Ryde, N.S.W. 2113 



Canada 

4050 Series Applications Library 
Tektronix Canada Ltd. 

P.O. Box 6500 
Barrie, Ontario 
Canada L4M 4V3 

Caribbean, Latin America 
and Far East (excl. Japan) 

IDD Group 
Export Marketing 
Tektronix, Inc. 

P.O. Box 500 
Beaverton, Oregon 97077 
U.S.A. 



Japan 

4050 Series Applications Library 
Sony/Tektronix Corporation 
9-31 Kitashinagawa-5 
Tokyo 141 Japan 

United States 

4050 Series Applications Library 
Tektronix, Inc. 

Group 451 
P.O. Box 500 
Beaverton, Oregon 97077 
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